my $DIR = "./";
opendir ( my $dir, $DIR) or die "Can't open directory $DIR: $!\n"; 
my @files = map { $DIR.$_ } readdir( $dir ); 
closedir( $dir );
foreach my $file ( grep { -f $_ } @files ) { 
    print "\$file is $file\n";
}
[download]