use Net::FTPSSL;
use Mail::Sendmail;
use File::Copy;

my($ftps);

$ftps = Net::FTPSSL->new("ftp.server.de",Port => 990,Encryption => "I",Timeout => 2, Debug => 5, Passive => "0") or die "Error connecting to FTP Server for ConnectionTest: $@";
$ftps->login("username","*******") or die "Can't Login to Server: ", $ftps->last_message;
$ftps->cwd("TEST") or die "Can't change directory: ",
$ftps->last_message;
$ftps->get("test.xml") or die "Can't save file to server: ",
$ftps->last_message;
$ftps->quit();