Select Code to Download

$ perl -e 'print "X: "; my $x = <STDIN>; print "X=", $x'

$ perl -e 'print "X: "; my $x = <STDIN>; print "X=", $x'
X: 123
X=123
$