#/usr/local/bin/perl die "usage: $0 webpagename ..\n" unless @ARGV; $|=1; $base_href="https://atmos.nmsu.edu/planetary_datasets"; $now=`date`; chomp($now); print " $ARGV[1]

"; open(README, "perl generatebar.pl |") or die "Can't open $!\n"; while(){ $line .= $_; if($line ne ''){ print $line;} $line = ''; } close(README); print "

"; open(README, "< $ARGV[1]") or die "Can't open $!\n"; while(){ $line .= $_; print $line; print "br"; } close(README); print " ";