#!perl -l
use strict;
use warnings;
my $v;
BEGIN{ $v++ }
print "v: $v";