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

$\ = "\n";
find \&print_name, ".";

sub print_name{
    print rel2abs($_) 
      unless $_ eq "." or $_ eq "..";
}