#!/usr/bin/perl -w
use strict;

my $dir = ".";
opendir (DIR, $dir) || die "cannot open $dir\n";
my @filepaths = map{"$dir/$_"} grep{-f "$dir/$_"} readdir(DIR);
print join("\n",@filepaths),"\n";