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