use CGI qw/:standard/;  # I prefer non-OO for these

print table(
        Tr( [
          map td( [ $_->{name},
                    $_->{year},
                    $_->{rating} ] ),
              @table
        ] )
      );