Select Code to Download

while(my $url = shift @ARGV) {
    unless($url =~ m{^http://([A-Za-z0-9\.\-]+)/(.*)$}) {
        print "$0: invalid url: $url\n";
...
    print "\n$sep";
    close $remote;
}