package maintmpl; # who i am
use ehmod qw(fixdash mydatatmpl); # who i need
$IDENT = q$Id: maintmpl.pm,v 1.1.1.1 2002/01/14 22:41:30 chouser Exp $;
sub maintmpl {
my %d = @_;
# apply template
$retval = mydatatmpl (
-timestamp => scalar(localtime),
%d, # this passes along any data from leaf files and other templates
);
return $retval;
}
__DATA__
free.linux.hp.com/~agriffis - <TMPL_VAR title>