Select Code to Download

#!/usr/bin/perl 
use strict;
...
    #test reply here, etc...
    
}

#!/usr/bin/perl 
# test_url.pl
...
 my $reply = get("http://$ip$url");
 warn "couldn't get $ip$url\n" unless defined $reply;
}