Select Code to Download

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

#! perl -slw
use strict;
...
    }
}