Select Code to Download

#!/usr/bin/perl

...
        #$my_ftp->get("*.txt");
        return;
}

Net::FTP::Recursive=GLOB(0xa4bee8)<<< 250 CWD command successful.
Net::FTP::Recursive=GLOB(0xa4bee8)>>> PWD
...
Net::FTP::Recursive=GLOB(0xa4bee8)<<< 257 "/Browse_For_Drivers/Servers
+, Storage & Networking/PowerEdge" is current directory.
Net::FTP::Recursive=GLOB(0xa4bee8)>>> QUIT
Net::FTP::Recursive=GLOB(0xa4bee8)<<< 221 Thank you for using the Dell
+ FTP site, please come again.

Net::FTP::Recursive=GLOB(0x1054fa8)<<< 250 CWD command successful.
Net::FTP::Recursive=GLOB(0x1054fa8)>>> PASV
Net::FTP::Recursive=GLOB(0x1054fa8)<<< 227 Entering Passive Mode (143,
+166,135,12,255,118)
Net::FTP::Recursive=GLOB(0x1054fa8)>>> RETR *.txt
Can't use an undefined value as a symbol reference at /usr/share/perl5
+/Net/FTP/dataconn.pm line 54.