use Cwd use File::Spec

use File::Spec;
use Cwd;
use Cwd 'abs_path';

$cur = getcwd();
opendir DIR, "$cur" or die "cannot open dir $!.";
@files = readdir DIR;
foreach (@files){
    if(! /^\./){
        $path = File::Spec->catfile($cur, $_);
#print "$path\n";
    }
}

print map {if($_ !~ /^\./){'    '.File::Spec->catfile($cur, $_)."\n"}} @files;

#!/usr/bin/perl

use Cwd;
use File::Spec;

my $cwd = getcwd;

print map { "    " . File::Spec->catfile( $cwd, $_ ) . "\n" }
                glob( ".* *" );