#!/usr/bin/perl
# vi:ts=4 sw=4 et:
use strict;
use warnings;
use Net::FTP::File;

my $ftp = Net::FTP->new( 'localhost', Debug => 1 );

$ftp->login( 'ftptest', 'abcdef' ) or die $ftp->message;
$ftp->copy( 'README', 'README.txt', '/tmp' ) or die $ftp->message;
$ftp->quit;

__END__