use strict;
my $x;
$x = &mysub;
printf "in main \$x = %d\n", $$x;
$$x = 5;
$x = &mysub;

sub mysub () {
	my $z;
	printf "in sub \$z = %d\n", $z;
	$z = 3;
	return \$z;
}