use File::Find;
use File::Spec::Functions qw(rel2abs);

$\ = "\n";
find \&print_name, rel2abs(".");  
# or, just for ".": 
# use Cwd;
# find \&print_name, cwd;  

sub print_name{
    print $File::Find::name
      unless $_ eq "." or $_ eq "..";
}