#!/user/bin/perl

use File::Find;

find(\&print_name, ".");


exit(0);


sub print_name{
        print "[$File::Find::dir] [$File::Find::name]\n"
        unless(($_ eq ".") or ($_ eq ".."))
               }