#!/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 ".."))
               }

##</code><code>##

[.] 
[.] [./DAYS2MDH.M]
[.] [./INVJDAY.M]
[.] [./JDAY.M]
[.] [./mdy2doy.m]
[.] [./MyBigTest.pl]
[.] [./MyBigTest.vpd]
[.] [./MyLearn04.pl]