Select Code to Download

sub check_1 {
    my $query = "
...
        print $tst."\n";
    }
}

#! perl -slw
use strict;
...
in sub 2
in sub 1
Terminating on signal SIGINT(2)