## untested, just something I thought up right now
    chomp( $input = <STDIN> );
    my( $cmd, @args ) = split( /\s+/, $input );

    if( defined( $commands{ $cmd } ) ) {
        $command{ $cmd }->( @args );
    }