Tag Archive for FTP

Net::FTP to ftp a file

use Carp;
use Net::FTP;

my $ip  = ...; # Target machine

my $local= ...; # local filename
croak "$local file is missing !!
" unless -f $local;

my $remote= ...; # Remote filename

my $ftp= Net::FTP->new( $ip
,Port    => 21  # Standard port number
,Timeout => 15  # Timeout in seconds
)
or croak "Failed to connect to $ip.";

my $user= ...;  # login user
my $pw  = ...;  # login password
$ftp->login( $user, $pw )
or croak "Failed to login.";

$ftp->put( $local, $remote)
or croak "Failed to <a href="http://ftp.";" >ftp.";</a>

$ftp->quit();

source