Hello, I tried 'use warnings' and 'use diagnostics' and received the same message. Here's part of the code:

sub get_product_table
{
my $sth = shift;
my @row;

              
    
    while (my $ref = $sth->fetchrow_hashref ())
    {
my $serve_url = sprintf ("serve_image.cgi?item_id=%s",
                                escape ($ref->{item_id}));
        

# generate a form allowing a quantity of the item to be added
# to the cart
push (@row, start_form(-method=>'GET', -action=>url()),
hidden( -name => "choice", -override => 1, 
-default => "add" ),
hidden( -name => "item_id", -override => 1, 
-default => escapeHTML( $ref->{item_id} )),
        Tr (
   print img ({-src => "$serve_url;thumbnail=1", -alt => $ref->item_id
+}), 
   td ( escapeHTML( $ref->{item_id} )),
[download]

I believe the line that is causing the problem is the line that starts with "print img". Thanks