Help for this page
#!/usr/bin/perl ... $ftps->pwd(); print @ret;
>>> USER ******** <<< 331 Password required for ********. ... <<< 226 Transfer complete. >>> PWD <<< 257 "/home/*******" is current directory.