use strict;
use warnings;

my $s = 'foo';
print "s=$    s\n";