automatic frame bug?

Hello to all!

I tried using an automatic frame CGI script (located at http://html.about.com/library/weekly/aa022800a.htm) but it seems to have a bug. I asked the author for help, but haven't received a response yet. The frame will show up when an outside link is clicked, but the return link won't return to the originating site. It blanks the page and refreshes the linked site, keeping the frame at the top. The "remove this frame" link works fine.

Can you offer any assistance?

More info: the page with the cgi link is at http://www.yesaroun.com/news.html, and the cgi link is "TownOnline article".

Below is the cgi:

#!/usr/bin/perl
# frameit.cgi copyright 2000 Jennifer Kyrnin

use strict;
$| = 1;

delete @ENV{"IFS", "CDPATH", "ENV", "BASH_ENV"};

$ENV{PATH} = "/bin:/usr/bin";
use CGI; use CGI::Carp 'fatalsToBrowser';
my $q = new CGI;

# if there is no parameter, re-open the last page.
if (!$q->param())
{
my $url = $q->referer() ?
$q->referer() :
"http://www.yesaroun.com/";
print $q->redirect("$url");
} elsif ($q->param("top")) {
&buildtop;
} else {
&buildframe;
}

sub buildframe
{
# get the URL to open in
# the bottom frame from the post...
my $url = "";
$url = $q->param("url") ?
$q->param("url") :
"http://www.yesaroun.com/";

my $refer = "";
$refer = $q->referer() ?
$q->referer() :
"http://www.yesaroun.com/";

# get the URL to open in
# the top frame from the post
my $top = "";
$top =
"frameit.cgi?top=y&url=$url&refer=$refer";
# build the HTML and print it
print $q->header;
print << "EOF";









<br>Please <a href="$url">Click here</a> to go to the page.<br>


EOF
;
}

sub buildtop
{
# get the URL to open in the bottom
# frame from the post...
my $url = "";
$url = $q->param("url") ?
$q->param("url") :
"http://www.yesaroun.com/";

my $refer = "";
$refer = $q->referer() ?
$q->referer() :
"http://www.yesaroun.com/";

print $q->header;
print << "EOF";

Thank you for your time and any help offered.

-Byron Solomon