use strict; 
use warnings;

use 5.010;

use Net::FTP;

my $ftp = Net::FTP->new(
    "server.intern", 
    Debug => 1,
    # SSL_verify_mode => 0, # siehe auch IO::Socket::SSL
) or die "Cannot connect to server.intern: $@";

$ftp->starttls(); 

$ftp->login("test",'test')
  or die "Cannot login ", $ftp->message;

$ftp->cwd("/")
  or die "Cannot change working directory ", $ftp->message;

$ftp->quit;