#!/usr/bin/perl
 

use strict; 
use IO::File;
use File::Copy;
use Net::FTP; 


 
sub main(){
 
                my $ftp = Net::FTP->new("ftp://.....com");          
                $ftp->login('.....','.....');                                                                             
                $ftp->binary();
                $ftp->cwd('/a/b/c');                                                              
                my @ftpFiles =$ftp->ls();                                                                                                   
                my $i = 0;
                                                                                                                                                                                                                               
                while ($i < $#ftpFiles) {                                                                                                   
                                if($ftpFiles[$i] =~ m/andv/)                                                                         
                                {
                                                $ftp->get($ftpFiles[$i]);        
												$myfile = $ftp;
                                }
                                $i++;
                }
                               
                $ftp->quit();