Select Code to Download

while (my $inp = <>) {
    $inp =~ s/^\s*(\w+)\s*$/$1/;
...
        print "Command unknown: '$inp'\n";
    }
}

while (my $inp = <>) {
    $inp =~ s/^\s*(\w+)\s*$/$1/;
...
        print "Command unknown: '$inp'\n";
    }
}

my %dispatch_table = (
    AB => \&AB,
...
        print "Command unknown: '$inp'\n";
    }
}