use IO::Dir;
use File::Spec::Functions 'rel2abs';

my $d     = IO::Dir->new("your_dir_here") or die("ack - $!");
my @files = map rel2abs($_), grep -f, $d->read;