$ftp=Net::FTP->new($host,Timeout=>240)
$ftp->login("login","password")
$ftp->cwd($directory) 
# Here can i grep by the filename (same search for all files named Monk

@files=$ftp->dir 

for each (@files)
print "$_\n"; 
# Need to get the file here. I can print out the files
}