$ftp->cwd("/mnt/lib") or die "Cannot change working directory ", $ftp->message;

$ftp->binary();
          		 for my $file (@libs)
			 {
				  
				  $ftp->put("$file") or die "put failed ", $ftp->message;
			
			 }