use warnings;

my $foo = undef;
print "This is some ", $foo, "\n";