#! /usr/bin/perl -T
#
# (c) Noa

use strict;

$ENV{'PATH'} = '/usr/bin:/bin:/usr/local/bin';
delete @ENV{ 'IFS', 'CDPATH', 'ENV', 'BASH_ENV'};

use lib qw(./); 
use ScorchLib::Configuration;
use ScorchLib::HTMLTemplate;

my $page = new ScorchLib::HTMLTemplate;
my $config = new ScorchLib::Configuration;

my ($html_content) = $page->load($config->{'templates'}->{'xfreesample'});
$page->print($html_content);
