package TEMPLATE;

#/

# a template pm

#

# uses:

#     <a href='?pm=TEMPLATE'>TEMPLATE</a>

#/

use strict;

use warnings;

use CGI::Carp qw(fatalsToBrowser);

use Exporter;

use vars qw($VERSION @ISA @EXPORT_OK @EXPORT);

use CGI;

$VERSION     = 1.00;

@ISA         = qw(Exporter);

##########################

#use statements here

#use lib "./Pm";

##########################

my $TABLE_BORDER = 0;

my $DEBUG = 0;

push @EXPORT_OK, "an_exported_sub";

sub an_exported_sub($$) {

  #*

  # an exported sub description/information

  #*

  my ($param1, $param2) = @_; # param one && param 2

  return 1; # a return value of 1 (aka true)

  #usage: my $val = an_exported_sub($someval, $someotherval);

}

1;