my $foo = shift;
print $foo,"\n";

##</code><code>##

[ambs@eremita tmp]$ perl foo.pl 'fo\o'
fo\o