use Net::FTP;

   $ftp = Net::FTP->new("HOST", Debug => 0)
     or die "Cannot connect to some.host.name
 
: $@";

   $ftp->login("USER",'PWD')
     or die "Cannot login ", $ftp->message;

   $ftp->cwd("/var/log/radius")
     or die "Cannot change working directory ", $ftp->message;

       $newerr=0;
     @files=$ftp->dir or $newerr=1;
       push @ERRORS, "Can't get file list on $_ $!\n" if $newerr;
       $ftp->quit if $newerr;
       next if $newerr;
        print "Got list $_\n";

print @files;

$ftp->binary();   

foreach $name ('radius.log', 'radius.log-20110405') {

     $ftp->get($name,$name);
                                        }  

   $ftp->quit;
   
   $res = system("gzip.exe -d radius.log-20110405.gz') ");

open (in,"<radius.log");
@radius= <in>;
close in;

open (in,"<radius.log-20110405");
@radius_alt1= <in>;
close in;

open(OUT,">radius.log");
print OUT "@radius";
print OUT "@radius_alt1";
CLOSE(OUT);