$VAR1 = "^audit";
Net::FTP>>> Net::FTP(2.77)
Net::FTP>>>   Exporter(5.63)
Net::FTP>>>   Net::Cmd(2.29)
Net::FTP>>>   IO::Socket::INET(1.31)
Net::FTP>>>     IO::Socket(1.31)
Net::FTP>>>       IO::Handle(1.28)
Net::FTP=GLOB(0x1cdf9e8)<<< 220 Titan FTP Server 11.20.2264 Ready.
Net::FTP=GLOB(0x1cdf9e8)>>> USER xupromgr
Net::FTP=GLOB(0x1cdf9e8)<<< 331 User name okay, need password.
Net::FTP=GLOB(0x1cdf9e8)>>> PASS ....
Net::FTP=GLOB(0x1cdf9e8)<<< 230-Welcome xupromgr from 10.253.2.119. You are now logged in to the server.
Net::FTP=GLOB(0x1cdf9e8)<<< 230 User logged in, proceed.
Net::FTP=GLOB(0x1cdf9e8)>>> TYPE I
Net::FTP=GLOB(0x1cdf9e8)<<< 200 Type set to I.
--------------------First List all files------------------
Net::FTP=GLOB(0x1cdf9e8)>>> PASV
Net::FTP=GLOB(0x1cdf9e8)<<< 227 Entering Passive Mode (10,253,1,56,235,244).
Net::FTP=GLOB(0x1cdf9e8)>>> LIST /AS/testftp
Net::FTP=GLOB(0x1cdf9e8)<<< 150 File status okay; about to open data connection.
Net::FTP=GLOB(0x1cdf9e8)<<< 226 Closing data connection. Transferred 415 bytes.
drw-rw---- 1 xupromgr xupromgr          512 Mar 29 08:04 .
drw-rw---- 1 xupromgr xupromgr          512 Mar 28 13:54 ..
-rw-rw---- 1 xupromgr xupromgr           18 Feb 27 14:21 no_audit.txt
-rw-rw---- 1 xupromgr xupromgr           18 Feb 27 14:21 no_audit_date.txt
-rw-rw---- 1 xupromgr xupromgr           10 Feb 27 14:08 auditsample.txt
-rw-rw---- 1 xupromgr xupromgr           11 Feb 27 14:21 audit_date.txt
No files exist with that ^audit