invalid workflow error

GodBlessMe

I'm getting a invalid workflow error
"Can't use global @_ in "my" at (eval 2) line 41" when i use the following code:
?xml version="1.0" standalone="no"?>
<!DOCTYPE workflow SYSTEM "../iwwf.dtd">

<workflow name="Bizpoint_Approval"
owner="__TAG__('iw_user');"
creator="__TAG__('iw_user');"
description="__TAG__('iw_desc');">

__INSERT__("
<variables>
<variable key='http_host' value='$ENV{HTTP_HOST}'/>
</variables>
");

<template_script><![CDATA[

use TeamSite::Usertask qw(
cleanup_paths
get_names_from_file
get_mail_cmd
make_branchpathlist
);

######################################################################
# Name: set_area
# Args: btag - TAG_info variable name for branch path.
# watag - TAG_info variable name for workarea.
# Usage: ($a, $b, $w, $s) = set_area("$btag", "$watag");
# Purpose: If the built-in variables for branch and workarea have
# not been set, pull the information from the workflow
# instantiation form (using the btag and watag info).
# Use the branch and workarea information to generate
# a valid areavpath (using a library routine)
# Returns: Returns the generated areavpath, the branch path, the
# workarea name, and a boolean indicating whether or not
# the branch and workarea need to be prompted for during
# instantiation (this relies on the fact that this code
# is run multiple times during the instantion process).
######################################################################
sub set_area{
my($btag, $watag) = @_;
my($avpath, $bpath, $wapath, $skip);
my($iwbpath, $iwwapath) = (__VALUE__("iw_branch"),
__VALUE__("iw_workarea"));
if ((length($iwbpath)) > 0 && (length($iwwapath)) > 0){
$bpath = $iwbpath;
($wapath = $iwwapath) =~ s|^\s*/.*|;
$wapath =~ s|/\s*$||;
return("$wapath", "$iwbpath", "$wapath", "TRUE");
}
($bpath, $wapath, $avpath) = cleanup_paths(__VALUE__("$btag"),
__VALUE__("$watag"));
return("$avpath", "$bpath", "$wapath", "FALSE");
}

my($area_vpath, $branch_path, $work_area, $skip_branch) =
set_area("branch_path", "work_area");

Bowker

My workflows start with this.... (more comments below)

<!DOCTYPE workflow SYSTEM "../iwwf.dtd">
<template_script><![CDATA[

use TeamSite::Usertask qw(
cleanup_paths
get_names_from_file
get_mail_cmd
make_branchpathlist
);

use TeamSite::Config;

$area_vpath = "/default/main/NIF/WORKAREA/UAT";
$wf_owner = __VALUE__('iw_user');

my $iwhome = TeamSite::Config::iwgethome();
my $iwmount = TeamSite::Config::iwgetmount();

sub iw_execute_deployment {
my($deployment) = @_;

(stuff removed here)

]]></template_script>

<workflow name="NIF_Generate"
owner="__INSERT__($wf_owner);"
creator="__INSERT__($wf_owner);"
description="Generate NIF fund detail, all funds, portfolio commentary, and index pages; submit; and deploy">
<dummytask name="dummyStart"

---------------------------------------

Notice where my "<workflow>" tag is. It is outside the template script.