use Net::SSH::Perl;
use Net::SFTP;

$host = '***.***.***.***';
$username = '****';
$passwd = '****';
$remote_path = '/home/roime/';
$local_path = '/flow/flow';

chdir $local_path or die "Could Not Change Dir To $local_path!";
opendir(FILE, $local_path) || die("Cannot open directory");
@files=readdir(FILE);
closedir(FILE);

foreach $file(@files)
{
next if(-d $file);
next if($file eq ".flow");
{
$sftp=Net::SFTP->new($host, user =>
$username, password => $passwd, debug => 0)
or die "Cannot connect to $host:$@";
$sftp->put("$file", "$remote_path") or die "...problem !...";
$sftp->ls($remote_path);


unlink("$local_path$file") or die "having trouble deleting $file:$!";;
print "$file deleted success....\n";
}
}



sub usage
{
my($name) = $0;
$name =~ s/.*\///;

print STDERR "Usage: $name <host> <username> <passwd> <remote_path> <local_path>\n";
exit;
}