>>> STOR grrr.txt
<<< 150 Ready to write file "grrr.txt".
<<< 226 Transfer complete.

##</code><code>##

use Net::FTPSSL;
$ftps = Net::FTPSSL -> new('yyy.yyy.yyy.yyy',
			    Encryption => 'I',
			    Debug => '2',
			    DebugLogFile => 'ftps.log');
$ftps -> login("luser","pass");
$ftps -> cwd("/TEST/Test/");
$ftps -> put("TEST.TXT","grrr.txt");
$ftps -> quit;