use Net::FTPSSL;
  my $ftps = Net::FTPSSL->new('xxx.xxx.xxxx',
                              Port => 21,
                              Encryption => 'E',
                              Debug => 1)
                              or die "Can't open xxxxxx;

   $ftps->login('xxxx', 'xxxxx')
   or die "Can't login: ", $ftps->$last_message();
   $ftps->cwd("/xxx/outbound") or die "Can't change  directory: ", $ftps->last_message;

   $ftps->get("xxxx_Test.txt") or die "Can't get file: ",$ftps->last_message;

  $ftps->quit();