http://www.perlmonks.org?node_id=94551


in reply to adding sys env var

Using strict doesn't let me prompt for this.

!!!
strict.pm will let you prompt as long as you declare your variable lexically scoped instead of global. You could use this common example:

chomp(my $host = <STDIN>);

$_.=($=+(6<<1));print(chr(my$a=$_));$^H=$_+$_;$_=$^H; print chr($_-39); # Easy but its ok.