#!/usr/bin/perl (@files)=<*.pl>; foreach my $file(@files){ my ($filestart)=$file=~/(.*?)\./; open INPUT, $file; my $source; while (){ $source.=$_; } close INPUT; $program=$source; $source=~s//>/g; open FILE, ">$filestart.html"; *STDOUT=*FILE; print "\n"; print "

";
    print $source;
    print "

";
    print "Program results:";
    print "";
    eval $program;
    print "";
    print "";
    close FILE;
}