#!/usr/bin/perl

print "Content-type: text/html\n\n";

chdir "FingerStuff";
open(SL, 'stufflist');
$count = <SL>;
$pick = int(rand($count));

while ($pick > 0) {
    <SL>;
    $pick = $pick - 1;
}

##printf("%s\n", <SL>);
$sll = <SL>;
##printf("%s\n", $sll);
close(SL);


print "<pre>";
open(HH, "header");
while(<HH>) {
    print $_;
}
close(HH);

open(TT, $sll);
while(<TT>) {
    print $_;
}
close(TT);

print "</pre>";
exit 0;