my $user='user';
my $password='pass';
my $file='/path/file';
my $ftp=Net::FTP->new($client, Timeout => 30,  Passive => 1) or die "Could not Connect.\n";
$ftp->login ($user, $password);
$ftp->binary;
$ftp->put($file) or die "Error Uploading.\n";
$ftp->quit;