Hello Try using $ftp->dir instead of $ftp->list and check
dir if /^d/, file if /^-/, error otherwise.
(It may depend on the server platform, but checking ftp.cdrom.com and ftp.microsoft.com yielded similar results)

Hope this helps,,,
Aziz,,,