use 5.10.0;
use strictures;
use Path::Tiny;

my $dir = path( shift || "./" );

$dir->is_dir or die "$dir is not a directory!\n";

for my $file ( grep -f, $dir->children )
{
    say $file->absolute;
    say "       -> ", $file->basename;
}