Select Code to Download

#! perl -slw
use strict;
...
$ftp->login( 'anonymous', 'anonymous@' );
$ftp->cwd( $dir ) or die $@;
$ftp->get( $file ) or die $@;