Select Code to Download

#!/usr/bin/perl

...
$ftp->cwd(DIR1);
print Dumper $ftp->dir(<DIR1>);
$ftp->quit;

#!/usr/bin/perl

use Net::FTP;
...
$ftp->cwd(DIR1);
print Dumper $ftp->ls(<GLOB>);
$ftp->quit;