shell> cat > dash_s_switch.pl
print "\$foo is $foo\n";
^D
shell> perl -s dash_s_switch.pl -foo="a string"
$foo is a string