Select Code to Download

#!/usr/bin/perl -w

...
    print "$host\n";
    my $mach = Net::Netrc->lookup($host) || die $!;
}

There are 3 records in config file /data/retprep/retlogs/retrieve.conf
ftp.some_domain.com/pub