#!/usr/bin/perl -w

use strict;
use HTML::Template;
use DBI;

##DB CALL##
my (@network_data, @location_data) = get_data();


##Template##
my $template = HTML::Template->new(filename => 'main.tmpl');

$template->param( NETWORK_DATA => \@network_data);
$template->param( LOCATION_DATA => \@location_data);

print "Content-Type: text/html\n\n", $template->output;