@ARGV = qw(.) unless @ARGV;
use File::Find;
find sub { print $File::Find::name,"\n<br>\n" }, @ARGV;