#!perl -w use strict; use vars qw/%names $file @lines $i $turn @colors/; $file = shift || &usage; @colors = qw/blue red green violet orange/; open IN, "<", $file or die "Cannot read file '$file' : $!\n"; chomp(@lines = ); close IN; open OUT, ">", "$file.html" or die "hmm... $file.html can't seem to be written : $!\n"; print OUT qq|

<$1> |; } else { print OUT qq|$_

]; close OUT; sub usage { print qq[Usage: msn2html \n\twhere is the file you want to process\n\n]; exit 0; }