Select Code to Download

int *mysub ();
main() {
...
    z = 3;
    return &z;
}

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

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

use strict;
my $x;
...
    return \$z;
}

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

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