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