# A sample program

# Modules used
use Net::FTP;
use File::Copy;
Net::FTP;

my $error,$ftp;

#Connection to the test server
$ftp = Net::FTP->new("testserver.vago.com", Timeout => 75, Debug => 0, BlockSize => 1024);

if (!$ftp) {
print "Could not connect to testserver.vago.com\n";
}
else
{
print "Successfull Connection to the server\n";
}


#Login to the testserver.vago.com
ftp->login("testftp","123qwe") || print "Could not login to the server\n";
print "Successfull login to the server\n";


#Get files from the server and then delete them
$ftp->cwd("/home/testftp/cat/rat");
@dirlist = $ftp->ls();
foreach $file (@dirlist) {
$ftp->get($file,"/home/testftp/cat/rat/$file") ||
print "Could not get the files";
notify("Got the file $file from server to the local machine\n");
print LOG "$tds $file\n";
$ftp->delete($file) || print "Could not delete $file in server";
}