Let's Goto Work

use Company::FTP; 

my $ftp = Company::FTP::handle_for 'usc';

my @listing = $ftp->ls; # no need to login or cd!

$ftp->Common (RemoteDir => '/nfs/nightly_dump', File=> 'dump.txt');
for (@Company::FTP::nightly_hosts) {
 $ftp->get(Host => $_, LocalFile => "dump-$_.txt");
}

my $ftp2 = Company::FTP::handle_for 'perlmonk';
my @match = $ftp2->grep(Grep => qr/.*.jpg$/);

{
  die "signal file not available" if $try++ > $MAX_ATTEMPTS;
  redo unless $ftp2->exists(File => 'signal_file');
}