#!/usr/bin/perl
use Net::SCP;
$scp = Net::SCP->new ( "beta.kanja.gc.au", "guestUser");
$scp->cwd("/beta/path/router/files/") or die $scp->{errstr};
open(rtrList, "/alpha/path/list_of_files.lst");
while(<rtrList>)
{
       chomp;
       $file = $_;
       $scp->put("$file") or die $scp->{errstr};
}
close(rtrList);