Select Code to Download

$ ls -la
total 272
...
-rw------- 1 meetal meetal 12288 Jan  3 11:54 .inna.pl.swp
-rw-rw-r-- 1 meetal meetal   651 Jan  3 11:54 test.pl

$ perl test.pl *.txt
$VAR1 = [];