note
Utilitarian
Meh, why do any work ;)
<c>
#!/usr/bin/perl
use strict;
use warnings;
open my $HTML, '>', 'output.html' or die $!;
print $HTML <<'_END_HEADER_';
<html>
<head><title></title></head>
<body>
<pre>
_END_HEADER_
open my $IN, '<', 'input.txt' or die $!;
print $HTML while <$IN>;
print $HTML '</pre></body></html>';
close $HTML or die $!;
</c>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-681898">
<c>print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."</c>
</div></div>
1015328
1015332