in reply to perl socket
my $address = shift @ARGV || DEFAULT_ADDR; [download]
$ perl -wle 'use constant DEFAULT_ADDR => "127.0.01"; my $address = shift || DEFAULT_ADDR; print $address' 192.168.1.1 192.168.1.1 [download]