Banner rotator in perl

I am using this banner rotator in a php file:

<?php
      $fcontents = join ("", file ("http://domain.com/ads.txt"));
      $s_con = split("~",$fcontents);
      $banner_no = rand(0,(count($s_con)-1));
      echo $s_con[$banner_no];
      ?>

Code (markup):

and have a txt file that has the ads seperated by a ~

Is it possible to pull this same txt file with a perl script? I would like just one txt file for the site.

Thanks

 

I guess you can find it here..
http://www.webscriptlist.com/perlscripts/scripts/f.asp?fid=138601

 

I'm afraid you cannot use this script in PERL...
PERL supports other language syntaxes but not PHP...

 

@vid - have you ever used one of these?

 

Wound up using this one. pretty cool - even has an admin panel to add ads


http://www.tesol.net/scripts/SFEBanner/