#!/usr/bin/perl

# must have's!
use strict;
use warnings;
use CGI::Carp qw(fatalsToBrowser);
use DBI;
use URI::Escape;

use lib "/var/www/html/Pm";

use TEMPLATE qw(an_exported_sub);

my $DEBUG = 0;

my $output = "content-type: text/plain\n\n";

print $output . an_exported_sub(1, 2);

exit 1;