#!/usr/bin/perl
my $tricky = "in main";
&test_sub;

sub test_sub {
        print "$tricky\n";
        my $lost = "gone";
        &test_sub2;
}

sub test_sub2 {
        print "$lost\n";
}