my ( $extention, $type ) = split '=', `assoc $arg_item 2>nul`;
my( undef, $cmd ) = split '=', `ftype $type 2>nul`;

##</code><code>##

c:\test>assoc .pl
.pl=Perl

c:\test>ftype Perl
Perl="c:\perl\bin\perl.exe" -sw "%1" %*

##</code><code>##

my( undef, $cmd ) = split '=', `ftype $type 2>nul`;

##</code><code>##

my ( undef, $type ) = split '=', `assoc $arg_item 2>nul`;