#!/usr/bin/perl

use strict;
use warnings;
use DBI;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use HTML::Template;

my $query = CGI->new();

## Define your username/password/SQL server
my $db_server = "localhost";
my $db_user = "videodb";
my $db_password = "password";
my $db_database = "VideoDB";

my $dbh = DBI->connect("dbi:mysql:$db_database:$db_server",
$db_user,$db_password) or die $DBI::errstr;

## Create your SQL call

# Query 1 to get desired records for your loop
my $last_five = q~SELECT imdbID, title, Mediatype, created
FROM videodata
WHERE Mediatype <> '50'
ORDER BY created DESC LIMIT 5~;


# Query 2 to get the total records in DB
my $total = q~SELECT COUNT(*) FROM videodata~;

## Define Template
my $tmpl = HTML::Template->new( filename => "sig.tmpl");

## Feed the information you got from the query (@rows) into your template
$tmpl->param(rows => $dbh->selectall_arrayref($last_five, { Slice => {} }),
count => ($dbh->selectrow_array($total))[0]);

## Print the template
print $tmpl->output;