my $sftp = new Net::SFTP::Foreign(host => $host, user => $user, password => $pwd, more => '-v', autodie => 1);
$sftp->setcwd('/directory');

my $files = $sftp->glob('*.txt', names_only => 1);

for my $file (@$files) {
     $sftp->get($file, "/in_dir/$file", numbered => 1);
     $sftp->remove($file);
}