#!/usr/bin/perl -w

use strict;
use Net::Netrc;
use Tie::File;

use vars qw($CONF);

$CONF = '/data/retprep/retlogs/retrieve.conf';
my @conf;
tie @conf, 'Tie::File', $CONF or die("Unable to tie config file $CONF: $!");
print "There are ". scalar(@conf), " records in config file $CONF\n";
foreach $_ (@conf) {
    chomp;
    my ($retid, $host, $files, $freq, $proto, $depricated, $prev_fdate, $opts, $start_day) = split(/:/,$_,9);
    print "$host\n";
    my $mach = Net::Netrc->lookup($host) || die $!;
}