my @files=();
@files=glob('*');
print join("\n",@files),"\n";

##</code><code>##

use Data::Dump qw( pp );
pp <*.pl>;

##</code><code>##

use Cwd;
my $dir = getcwd;
print "$dir\n";

##</code><code>##

warnings/register.pm
/usr/share/perl/5.24/warnings/register.pm
overload.pm
/usr/share/perl/5.24/overload.pm
vars.pm
/usr/share/perl/5.24/vars.pm
Cwd.pm
/usr/lib/x86_64-linux-gnu/perl/5.24/Cwd.pm
Exporter.pm
/usr/share/perl/5.24/Exporter.pm
overloading.pm
/usr/share/perl/5.24/overloading.pm
File/Glob.pm
/usr/lib/x86_64-linux-gnu/perl/5.24/File/Glob.pm
warnings.pm
/usr/share/perl/5.24/warnings.pm
Data/Dump.pm
/usr/local/share/perl/5.24.1/Data/Dump.pm
strict.pm
/usr/share/perl/5.24/strict.pm
/etc/perl/sitecustomize.pl
/etc/perl/sitecustomize.pl
XSLoader.pm
/usr/local/lib/x86_64-linux-gnu/perl/5.24.1/XSLoader.pm
subs.pm
/usr/share/perl/5.24/subs.pm