int *mysub ();
main() {
	int* x;
	x = mysub();
	printf("in main x = %d\n", *x);
	*x = 5;
	x = mysub();
}
int *mysub () {
	int z;
	printf("in sub z = %d\n", z);
	z = 3;
	return &z;
}

##</code><code>##

$ make temp
gcc     temp.c   -o temp
temp.c: In function `mysub':
temp.c:13: warning: function returns address of local variable

##</code><code>##

$ temp
in sub z = 0
in main x = 3
in sub z = 5

##</code><code>##

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;
}


##</code><code>##

$ perl temp.pl
in sub $z = 0
in main $x = 3
in sub $z = 0

##</code><code>##

int *mysub () {
	static int z;
...