use strict;
use warnings;
use 5.010;

say for (glob "*");

--output:--
1perl.pl
2perl.pl
2perl.pl.bak
3perl.pl
3perl.pl.bak
4perl.pl
data.txt
data1.txt
data2.txt
data2.txt.out
data3.txt
examples
helloWorld.pl
in.txt
out.txt
Person.pm
xml.xml