$ perl -wle 'my $x = 3; print "x: $ x"'
x: 3