[bignosebird.com...]
So far it won't execute, any suggestions?
#!/usr/bin/perl
$¦=1;
$mypic[0]="/banners/ama.gif WIDTH=468 HEIGHT=60";
$myurl[0]="http://www.amazon.com/exec/obidos/redirect?tag=apassforjazz&path=ts/browse-music/34";
$mypic[1]="/banners/jazzani1.gif WIDTH=468 HEIGHT=60";
$myurl[1]="http://www.sheetmusicplus.com/a/banner.html?id=33880";
$mypic[2]="/banners/bmbanner.gif WIDTH=468 HEIGHT=60";
$myurl[2]="/page6.html";
$mypic[3]="/banners/kbj.jpg WIDTH=468 HEIGHT=60";
$myurl[3]="http://www.amazon.com/exec/obidos/redirect?tag=apassforjazz&path=tg/browse/-/496934";
$mypic[4]="/banners/transcribe2.gif.gif WIDTH=468 HEIGHT=60";
$myurl[4]="http://www.SellShareware.com/ProgramInfo.asp?AfID=2472&PrID=9500";
$mypic[5]="/banners/shamrock49 WIDTH=468 HEIGHT=60";
$myurl[5]="http://www.shamrock49.com/";
$mypic[6]="/banners/nextcard2.gif WIDTH=468 HEIGHT=60";
$myurl[6]="https://my.nextcard.com/nc/raf/raf.asp?ref=NCA0818215&promo=raf";
srand(time ^ $$);
$pick = rand(@mypic);
print "Content-type: text/html\n\n";
print "<A HREF=\"$myurl[$pick]\"> <IMG SRC=$mypic[$pick]></A>";
Thanks,
D C
Thanks,
D C
update: I got it working