use Net::FTP;
    $ftp = Net::FTP->new("ftp.xyz.com", Timeout => 300, Debug => 1) or die "Cannot contact $host: 

$!";
    $ftp->login("xxxx",'yyyy');
    $ftp->cwd("/");
    $ftp->put("/directory-a/filename-b");
    $ftp->quit;