Select Code to Download

use LWP::Simple;
$ipaddress2 = get ('http://www.domain.com/ip-address.txt');
$number = get ('http://www.domain.com/counter.txt');

#!/usr/bin/perl

...
EOM
   exit;
}