$x=5;
print "Outside the subroutine \$x: $x\n";

sub mysub {
	print "In sub mysub \$x: $x\n";
	my $x=7;
	print "In sub mysub my \$x: $x\n";
}

mysub;

print "Outside the subroutine \$x: $x\n";