my $foo='bar';
print "Foo is $foo\n";
print 'Foo is $foo\n';