#!/usr/bin/perl
$| = 1;
$anothertext = "\n";
print "Content-type: text/html\n\n" ;
print "Blend-O-Matic\n";
print "\n";
print "B l e n d - O - M a t i c
\n";
print `/home/kirkjerk/SITES/MAIN/loveblender.com/cgi/fortune.perl /home/kirkjerk/SITES/MAIN/loveblender.com/cgi/blendisms`;
print "
\n";
print $anothertext;
print "\n";
sub MoreDigits {
local($name,$howmany) = @_;
for($j = $howmany - length($name); $j;$j--) {
$name = "0".$name;
}
$name;
}