use strict;
  use Net::FTP;

  my $client = Net::FTP->new('ftp.servername.com', Debug => 1)
                or die "Cannot connect : $@\n";

  $client->cwd('/files') or die $client->message();
  $client->get('somefile.txt') or die $client->message();
  $client->quit()