perl -we 'print $x'