#!/usr/bin/perl -wT 
##</code><code>##

if ($outfile !~ /^(\w+)\z/) {die "Disallowed characters in filename: '$outfile'";}
else {open(OF, ">$outfile") or die "-------------- cannot open OF";}

##</code><code>##

perl -wT ../perl_scripts/XXX.pl .......

##</code><code>##


else {$outfile = $1; open(OF, ">$outfile")

##</code><code>##

my @arr = `perl -wT $XXXfile $inp_file $outfile 'param'`;