Help for this page

Select Code to Download

Select or download this

$ perl -wle 'use constant DEFAULT_ADDR => "127.0.01";
my $address = shift || DEFAULT_ADDR; print $address' 192.168.1.1
192.168.1.1