Select Code to Download

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

use Net::FTPSSL;
$ftps = Net::FTPSSL -> new('yyy.yyy.yyy.yyy',
...
$ftps -> cwd("/TEST/Test/");
$ftps -> put("TEST.TXT","grrr.txt");
$ftps -> quit;