Test for system call

AAgroups.pl
buyers.pl
getaid.pl
getbid.pl
geteid.pl
getmid.pl
getoid.pl
getpid.pl
getsid.pl
getsmid.pl
members.pl
mydisplay.pl
myperl5.pl
myperl52.pl
mysubfunc6.pl
orders.pl
products.pl
sellers.pl
serbid.pl
setbid.pl
seteid.pl
setmid.pl
setoid.pl
setpid.pl
setsid.pl
setsmid.pl
smembers.pl
/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin
I am Perl Variable
/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin
$VAR1 = [
          'aid.def
',
          'bid.def
',
          'eid.def
',
          'mid.def
',
          'oid.def
',
          'pid.def
',
          'puid1.def
',
          'sid.def
',
          'smid.def
',
          'ssmid.def
',
          'upid.def
'
        ];
$VAR1 = \'aid.dat
bid.dat
bidkeep.dat
chatroom1.dat
chatroom2.dat
eid.dat
guestbook.dat
guestbook2.dat
guestbook3.dat
mid.dat
oid.dat
pid-now.dat
pid.dat
puid1.dat
puid2.dat
sid.dat
smid.dat
ssmid.dat
upid.dat
';
comments.txt
data.txt
data1.txt
data2.txt
data_excluding_json.txt
errlog.txt
filestosearchon.txt
filetosearchon.txt
hits.txt
keyword.txt
keywords.txt
mysubfunc.txt
mytmp1.txt
paragraph1.txt
systtt.txt
test.txt
test1.txt
test2.1.txt
test2.txt
test5.txt
test7.txt
total 0
-rwxrwxrwx 1 chrislu chrislu 0 Oct 26 04:08 bid.def
total 0
-rwxrwxrwx 1 chrislu chrislu 0 Oct 26 04:08 bid.def
total 0
-rwxrwxrwx 1 chrislu chrislu 0 Oct 26 04:08 bid.def