use warnings;
my $var=1;
print $var;