Chip 2002 May/05_02.iso/software/mhtmls/MagicHTMLStudio.exe/Disk1/data1.cab/Program_Files/CGI/Banners/rhtml.cgi

Text File | 2002-03-06 | 280 b | 19 lines

#!/usr/bin/perl
$LIST = 'list';

use CGI;

$HEAD = new CGI;

open(LIST, "$LIST") || die "Can't read $LIST. $!";

srand($$ & time ^ $$);

@all = <LIST>;
$ban = splice(@all, int rand @all, 1);
chomp($ban);

    print $HEAD->header('text/html');
    print "$ban\n";