% cat s
#! /usr/bin/perl -s

print "x is [$x]\n";
__END__
~/perl% ./s -x=s
x is [s]
~/perl% ./s -x s
x is [1]