$perl_version=`($_ -v 2> /dev/null) |
awk '/This is perl, v5/ { print $NF }'`;
}
if (!$perl_version) {
awk '/This is perl 5, version / { print $NF }'`;
if ($perl_version) {
$PERL=$_;
$pflag="1";