($path, $fcmd) = search($main::cmd, $cmd, "pl") if !$path || !$fcmd;
my $package = find_cmd_name($path, $fcmd);
($path, $fcmd) = search($main::cmd, $cmd, "pl") if !$path || !$fcmd;
my $package = find_cmd_name($path, $fcmd);
my $fh = new FileHandle;
if (!open $fh, $filename) {
$errstr = "Syserr: can't open '$filename' $!";
my $fh = new FileHandle;
if (!open $fh, $filename) {
$errstr = "Syserr: can't open '$filename' $!";
#print Devel::Symdump->rnew($package)->as_string, $/;
$package = "DXCommandmode::$package" if $package;
#print Devel::Symdump->rnew($package)->as_string, $/;
$package = "DXCommandmode::$package" if $package;