Directory Tree Viewer

#!/perl/bin/perl -w use strict; use CGI qw(:header); use CGI::Carp qw(fatalsToBrowser); use CGI qw/:standard/; my $show = param("show"); #my $input_dir = $ARGV[0] || '.' ; my $input_dir = "c:"; print header(); print " Directory Tree Viewer Start

"; #print "

\n"; printtree(\@tree); #print "

"; print "
- ",shift @{$tree},"
  \n"; #print "
  "; } print "
  End