#!/usr/bin/perl

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

use constant HOST  => 'ftp.perl.org';
use constant USER  => 'anonymous';
use constant PASS  => 'anonymous';
use constant DIR   => '/pub/CPAN/authors';
use constant FILE1 => '02STAMP';

my $ftps = Net::FTPSSL->new(HOST, 
           Debug      => 1,
           Encryption => CLR_CRYPT,
           useSSL     => 1,
           Croak      => 1,
           Trace      => 1,
           PreserveTimestamp => 1);
$ftps->login( USER, PASS );
$ftps->cwd(DIR); 
$ftps->binary;
$ftps->get(FILE1);
$ftps->_mdtm(FILE1);

$ftps->quit;