MIS Ad Hoc Query

# makehtml.pl by Mike Moxcey
# copies drive:\ _top and bottom.txt files wrappers around each
# file in current directory
# the top and bottom are html code wrappers using <pre>

opendir(DIR,'.') || die "Can't open current directory";
@filenames = readdir(DIR);
closedir(DIR);

for (@filenames)
  {
  next if $_ eq '.';
  next if $_ eq '..';
  next if $_ eq $0;
  $fname = $_;
  system "copy/b \\_top.txt + $fname + \\_bottom.txt new.file" ;
  system "copy new.file $fname" ;
  system "del new.file" ;
  }

_top.txt

<html><head>
</head><body><pre>

_bottom.txt

</pre>
</body>
</html>