#!/apps/perl/bin/perl -w

use Net::FTP;

$host = 'www.javtalk.com';
$username = 'adrian';
$password = 'mutumbo';

$ftp = Net::FTP->new($host, Debug=>0) || die "Can't connect to $hostn";
$ftp->login($username, $password) || die "Can't loginn";


### To get (download) a file from the server, use the get() command
### To put (upload) a file to the server, use the put() command
$ftp->get( "water.avi" ) ||  die "Can't GET.  $ftp->messagen";