#!/usr/bin/perl use strict; my ($filename, $proto, $output); $proto = $ARGV[0]; $filename = $ARGV[1]; $output = $filename . ".html"; open(IN,"<$filename") or die "Can't open input file: $filename\n"; open(OUT,">$output") or die "Can't open output file: $output\n"; open(PROTO,$proto) or die "Can't open proto file: $proto\n"; while () { if (m|