#!perl my $var = ...; my @var = ...; sub1(); sub2(); exit 0;