This is the script I found that I have been playing with. Perhaps someone will have some luck.Basically, it places the 4 previsously viewed items in a box on the page with clickable images to take them directly back to the item.
##################
# Recently viewed items
sub getMRV {
my $maxmrv = 4;
my $template =
qq~
<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 width=100%>
<TR><TD><TABLE CELLPADDING=0 CELLSPACING=0 BORDER=0 WIDTH=157>
<TR><TD bgcolor=#6394BD ROWSPAN=2 WIDTH=2>
<img src=../images/html/spacer.gif width=1 height=1></TD>
<TD HEIGHT=1 bgcolor=#6394BD VALIGN=top WIDTH=133>
<img src=../images/html/spacer.gif width=1 height=1></TD>
<TD ROWSPAN=2 VALIGN=top ALIGN=right WIDTH=2>
<img src=".././images/html/corner.gif" ALIGN=top width=22 height=21></TD>
</TR><TR><TD bgcolor=#DEE7EF>
<IMG SRC="images/html/spacer.gif" WIDTH=1 HEIGHT=10><FONT face=arial size=2>
Recently viewed</FONT></TD></TR></TABLE>
<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 width=100% style="border: 1px solid #6394BD;">
<tr><TD ALIGN=bottom width=25%>
<table border=0 cellpadding=0 cellspacing=0 width=100\%><tr>
<div id=MRVList><<MRVList>></div>
</tr></table>
</TD></tr></TABLE></td></tr></table><IMG src=.././images/html/shadowb.gif width=362 border=0 height=15 align=right>
~;
my $newmrv;
if ($form{category} && $form{item}) {
my ($title, $reserve, $inc, $desctitcolor, $desctitsize, $desctit, $desccolor, $descsize, $desc, $image, $image2, $image3, $image4, $feature, $grabber, $currency, $dutch, $qty, $payment, $condition, $shipping, $paypal, $bookers, $relist, $relistcnt, $gallery, $buyit, $music, $usecounter, @bids) = read_item_file($form{category},$form{item});
my ($alias, $email, $bid, $time, $add1, $add2, $add3, $oqty, $soldqty) = &read_bid($bids); # read last bid
my $timeremain = time_remain($form{item});
######### TO DISPLAY THUMBNAILS
my @images = split /\t/, $image;
$image = join "\t", @images;
my $pic = "";
$pic = "<IMG SRC=$music BORDER=\"0\" alt=\"$title, currently: $currency$bid\">" if ($music);
$pic = "<img src=$config{'picrv'} alt=\"$title, currently: $currency$bid\">" if (($image) && ($music eq ""));
$pic = "<img src=$config{'nopicrv'} alt=\"$title, currently: $currency$bid\">" if ($image eq "");
######### TO DISPLAY THUMBNAILS
if ($title ne '') {
my $closetime = localtime($form{item});
if (length($title)>30) {
$title =~ /(.{1,30}\W)/ims;
$title = $1;
$title =~ s/^(.*)$/$1\.\.\./;
}
$newmrv = "<td width=25\% align=center valign=bottom><font face=arial size=1><IMG height=7 src=.././images/html/spacer.gif width=1><BR><a href=\"$ENV{SCRIPT_NAME}?category=$form{category}&item=$form{item}\">$pic</A><br><IMG height=5 src=.././images/html/spacer.gif width=1><BR><a style=\"TEXT-DECORATION: none\" href=\"$ENV{SCRIPT_NAME}?category=$form{category}&item=$form{item}\">$title</A><BR><IMG height=5 src=.././images/html/spacer.gif width=1><BR>Currently: $currency$bid</font><br><IMG height=5 src=.././images/html/spacer.gif width=1></td>";
$newmrv =~s/()/'%'.unpack('H2', $1)/eg;
$newmrv = qq~
var newmrv = "$newmrv"\nif (newmrv != "") {\n\tvar mrvList = mrv.split("&")\n\tvar newList = \n\tvar i\n\tfor (i in mrvList) {\n\t\tif (newmrv != mrvList) newList = mrvList\n\t\tif (newList.length == $maxmrv) break\n\t}\n\tmrvList = newList\n\tmrv = mrvList.join("&")\n\tdocument.cookie = "MRVList=" + mrv\n}\n
~;
}
}
$template =~s/(\W)/'%'.unpack('H2', $1)/eg;
return qq~
<script language="JavaScript"><!--\nvar mrv = document.cookie.match("MRVList=*")\nmrv = (mrv ? mrv : "")\nmrv = mrv.replace("MRVList=","")\n${newmrv}var template = unescape("$template").replace("<<MRVList>>", unescape(mrv.split("&").join("")))\nif (mrv != '') document.write(template)\n//--></script>
~;
}