bill.de,
die regionale Plattform im Dreiländereck
 | #!/usr/bin/perl
$dir = "/kunden/ifs24.de/eck24.de/bill.de/banner";
$path = "http://www.bill.de/banner/";
srand();
print "Content-Type: text/html\n\n";
opendir(DIR, $dir) || die "can't opendir $dir: $!";
@files = grep { /.gif/ && -f "$dir/$_" } readdir(DIR);
closedir DIR;
$max = @files;
$rnd = int(rand($max-1))+1;
$filename = $files[$rnd];
$url = substr($filename,0,(length($filename)-4));
$url =~ s/\_/\//g;
print " |