c:\@Work\Perl\monks>perl -wMstrict -le
"my $name = 'foobleooble';
 print '(sn = $name)';
"
(sn = $name)