use strict;
use warnings;
my $var;
print "bla $var blub";