perl -wle" my $  x  = 6; die $x "
6 at -e line 1.