#!/usr/local/bin/perl
use DBI;
use Net::FTP;
use File::Basename;

#connection paraneters to localhost
	$IP='127.0.0.1';
	$users='Terence';
	$password='christine';
	$directory="C:/Users/Win7/Desktop/intenship doc2/";
#Connection to netboss
	$ftp = Net::FTP->new($IP, Debug => 0, Passive => 0) or die "cannot connect";
	$ftp->login($users,$password);
	$ftp->cwd($directory);
#list files
@fichier=$ftp->ls($directory);

foreach (@fichier)
{
 $file = basename($_);
if($file = "00wa-mb")
{
$ftp->get($file,"C:/users/Desk/personal".$file);
}
$ftp->quit;