foreach my $file_name (@ARGV) {
  my $tree = HTML::TreeBuilder->new ; 
  $tree->parse_file($file_name);
  print "\n\nWhere would you like to put the output file for $file_name? " ;
  my $output = <STDIN> ;
  open OUTPUT_FILE, "> $output" or die $! ;
  $tree = traverse ($tree);
  print OUTPUT_FILE $tree->as_HTML ("","  ",{}) ;
  $tree = $tree->delete ;
  close OUTPUT_FILE or die $!;
}