| #!/usr/bin/perl -w | |
| print "Content-type: text/html\n\n"; | |
| sub ReadFile { | |
| undef $/; | |
| if (open (FILE, $_[0])) { | |
| my $Ret = <FILE>; | |
| close FILE; | |
| return $Ret; | |
| } else { | |
| print "Could not open file '$_[0]' for reading!"; | |
| return ""; | |
| } | |
| } | |
| opendir DH, "RandomBoxes" or die "Where'd RandomBoxes go?"; | |
| @Files = grep /[0-9]/, readdir DH; | |
| closedir DH; | |
| srand(time ^ $$); | |
| print ReadFile "RandomBoxes/" . $Files[rand(@Files)]; | |
| print "\n"; | |
| exit(0); |