#!/usr/bin/perl -wT

use strict;
use CGI;

my $line = "";
my $part = "";

my $adfile = 'banners.dat';
    open(FILE, $adfile) || die "Can't open $adfile";
      
    #srand;
        
        # This chooses a random line, and puts that line into
        # the var $line.

    rand($.) < 1 && ($line = $_) while <FILE>;
    
    my @part = split(/\|/,$line);

    
    # Display the banner
    print "Content-type: text/html\n\n";
    print "<font face=\"arial\" size=\"2\"><a href=\"@part[0]\" target
+=\"_blank\"><img src=\"@part[1]\" width=\"@part[2]\" height=\"@part[3
+]\" alt=\"@part[4]\" border=\"1\"><br>Please visit my sponosr! </a></
+font>\n";

    # Close the file
    close(FILE);
[download]