#!/usr/bin/perl

use strict;
use warnings;
use Net::FTPSSL;

my $ftps = Net::FTPSSL->new(
           'ftp.cpan.org',
           Debug  => 1,
           Croak  => 1
);