Select Code to Download

    $sth = $dbh -> prepare (qq~select ? from FanRatings where Title = 
+?~) or die $DBI::errstr;
    $sth -> execute ($rating, $filename) or die $DBI::errstr;
    @OldRating = $sth -> fetchrow_array;

#!/user/perl
use CGI q~:standard~;
use CGI::Cookie;
...
                         );
}
$dbh -> disconnect;