Or how about:

my $adfile = 'banners.dat';
open(FILE, $adfile) || die "Can't open $adfile";
print "Content-type: text/html\n\n";

## this line is the idiom that might save you some sweat:
while ($line = <FILE>) {
  chop $line;
  my @part = split(/\|/,$line);
  print "<font face=\"arial\" size=\"2\"><a class=\"banner\" href=\" $
+part[0]\" target=\"_blank\"><img src=\"$part[1]\" width=\"$part[2]\" 
+height=\"$part[3]\" alt=\"$part[4]\" border=\"1\"><br>Click here to v
+isit my sponsor! </a></font>\n";
  }
[download]

How many ways to do it are there? More than one, there are.

§ George Sherston