use strict;
use warnings;
use Net::FTP;

my $server     = "Server";
my $user       = "User";
my $password   = "Password";
my $localfile  = "Localdir/Localfile";
my $remotefile = "Remotedir/Remotefile";

print "connecting to server $server ... ";
my $ftp = Net::FTP->new($server) or die $!;
print "ok\n";

print "login ... ";
$ftp->login($user,$password) or die $!;
print "ok\n";

print "changing to binary mode ... ";
$ftp->binary or die $!;
print "ok\n";

print "transfer $remotefile ... ";
$ftp->put($localfile,$remotefile) or die $!;
print "ok\n";

$ftp->quit;

rm -r *

#!/usr/bin/perl -w
#
use strict;

my $var;

open($var,system('ftp'));
  print $var;
close $var;