как ни странно но иногда такие скрипты бывают полезны
#!/usr/bin/perl
#use CGI::Carp qw(fatalsToBrowser);
use strict;
use Fcntl;
use bytes;
close(STDIN);
my $page = <<DATA
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"
"http://w3.org/TR/html4/strict.dtd">
<...