#!/usr/bin/perl
use warnings;
use strict;

use Net::SCP qw(scp);

my $scp = Net::SCP->new( "servername", "username" ) or die "Cannot connect: ";
	$scp->cwd("/tmp/test");
	$scp->get("gettest");
	
while (</tmp/test/*>) {
	#print $_ . "\n";
	$scp->put($_) or die "Could not place file: " . $scp->{errstr};
}