#!/usr/bin/perl -w
use strict;
use Net::FTP;

my $ftp;

$ftp = Net::FTP->new("my_host", Timeout=>240, Debug => 0)
or die "Error: $@";

$ftp->login('id','password')
or die "Error: ", $ftp->message;

$ftp->cwd("/folder")
or die "Error with cwd command: ", $ftp->message;

$ftp->put('filename to transfer', 'filename it will be called on the remote server') or die "Error in transfer: ", $ftp->message;

$ftp->quit;