my $home="mysite.com";
my $username="username";
my $password="password";
my $directory="/data"; 
my $dirname ="path/to/dir"; 


my $ftp = Net::FTP->new("$home")    or die "Can't connect: 1 $@\n";
$ftp->login($username, $password)       or die "Couldn't login - 1\n";
$ftp->cwd($directory)                   or die "Couldn't change directory - 1\n";

my @lines = $ftp->ls("/data");

foreach (@lines) {
	my $directory1 = "$directory/$_";
	my $homedir = "$dirname/$_";
	unless ( /back_up|contact/) {
		my @lines1 = $ftp->ls($directory1);
		foreach my $filename (@lines1) {
			print "<br>directory1:  $directory1<br>";
			print "<br>homedir:  $homedir<br>";
			my $filename1 = "$homedir/$filename";
			$ftp->get($filename, $filename1) or die "Couldn't get $filename - 1\n";
		}
	}					
}

$ftp->quit;