Select Code to Download

use strict;
use warnings;

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

s=foo

use strict;
use warnings;
...
my $s = "foo";

print "s=$    s, a=@  a\n";

s=foo, a=@  a