use warnings;
use strict;

opendir my $d, "."; 
print "$_ \n" for readdir $d;

##</code><code>##

.
..
1185398.pl
1188996.pl
1153280.serconf
proj1.txt
zipstest
uri.pl
1189013.pl
hash.pm
days.pl
1185438.pl
1189178.pl
hosts.pl
1189178a.pl
1185708.pl
quake_pp.txt
1186032.pl
dumper.txt
1186308.pl
1189211.pl
1186323.pl
1189235.pl
1186469.pl
lookup.pl
1186032-b.pl
1189346.pl
poj.pl
1189381.pl
sqlite-tables.pl
wmi-dbi.pl
1186518.pl
1189436.pl
... omitted for brevity