#!/usr/bin/perl

use strict;
use Net::SCP::Expect;

my $user = "xferusr";
my $password = "xxxxxxxx";
my $server = "server123.internal";
my $remotedir = "/var/www/html/reports/2009";
my $filelocation = "/opt/work/reports/2009/";

print "Login...Starting scp...";
my $scpe = Net::SCP::Expect->new(host=>$server, user=>$user, password=>$password, recursive=>'1');

print "\nFILELOCATION:" . $filelocation . "*\n";
print "REMOTEDIR: " . $remotedir . "\n";

$scpe->scp($filelocation . '*', $remotedir);

print "SCP complete\n";

##</code><code>##

scp /opt/work/reports/2009/* xferusr@server123.internal:/var/www/html/reports/2009