use strict;
use warnings;
sub mytest {
    my $var if 0;
    $var++;
    print $var, "\n";
}
mytest();
mytest();
__OUTPUT__
1
1