$ ./895386.pl
foo called with 42
going to call bar()...
$VAR1 = sub {
            my($foo) = @_;
            print "foo called with $foo\n";
            print "going to call bar()...\n";
            bar();
        };