my $dir = '/srv';
chdir $dir or die "$dir: $!";

my $sftp=Net::SFTP->new($server, %args)
    or die "could not open connection to $server\n";


my @files = glob('*.txt');

die 'No files to transfer' unless(@files);

foreach my $file (@files) {
    $sftp->put($file, "/HOME/$file") or die;
    sleep(5);
}