package Pm::TEMPLATE; # change TEMPLATE to whatever you need it to be

#/
# a template pm so i don't gotta type all this all the time
#/

use strict;
use warnings;
use Exporter;
use vars qw($VERSION @ISA @EXPORT_OK);
use CGI;

$VERSION     = 1.00;
@ISA         = qw(Exporter);
@EXPORT_OK   = qw(
                  an_exported_sub
                 );

use lib "/var/www/html/Pm"; # in case other modules i make need to be added into this module

my $TABLE_BORDER = 0;
my $DEBUG = 0;

sub an_exported_sub($$) {
  #*
  # an exported sub description/information
  #*
  my ($param1, $param2) = @_; # param one && param 2

  return 1; # a return value of 1
  #usage: my $val = an_exported_sub($someval, $someotherval);
}

1;

##</code><code>##

#!/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;