Ok, after some work I solved most problems for the Win XP. However, now there is problems with the special keys like HOME/END/PGUP/LEFT ARROW ... and those... All I get back from ReadKey is 0. I've found some tricks that was supposed to solve it on the net (urls included in the code), but they didn't work! :(
#!/usr/bin/env perl

use Term::ReadKey;
use Time::HiRes qw( usleep );
use Data::Dumper;
#use IO::Handle;

use strict;
use warnings;

# http://www.perl.com/doc/FAQs/FAQ/oldfaq-html/Q4.31.html
# http://www.rocketaware.com/perl/perlfaq5/How_can_I_read_a_single_cha
+racte.htm

# Works only in linux:
# http://groups.google.com/group/linux.debian.user/browse_thread/threa
+d/eaaedcaae8bc3e9a/8109745493b41a58?lnk=st&q=pgup+perl+readkey&rnum=5
+&hl=sv#8109745493b41a58

# PC 2-byte keycodes = ^@ + the following:

# HEX     KEYS
# ---     ----
# 0F      SHF TAB
# 10-19   ALT QWERTYUIOP
# 1E-26   ALT ASDFGHJKL
# 2C-32   ALT ZXCVBNM
# 3B-44   F1-F10
# 47-49   HOME,UP,PgUp
# 4B      LEFT
# 4D      RIGHT
# 4F-53   END,DOWN,PgDn,Ins,Del
# 54-5D   SHF F1-F10
# 5E-67   CTR F1-F10
# 68-71   ALT F1-F10
# 73-77   CTR LEFT,RIGHT,END,PgDn,HOME
# 78-83   ALT 1234567890-=
# 84      CTR PgUp

$| = 1;
#$|++;
#select(STDOUT);
#$| = 1;



#my $io = new IO::Handle;
#if ($io->fdopen(fileno(STDOUT),"w")) {
#    $io->print("Some text\n");
#}
#autoflush STDOUT 1;


#my $old_ioctl;

#BEGIN {
#    $old_ioctl = ioctl(STDIN,0,0) || -1;     # Gets device info
#    $old_ioctl &= 0xff;
#    ioctl(STDIN,1,$old_ioctl | 32);    # Writes it back, setting bit 
+5
#}

my %key_cmd_map = (
    # escseq       command
    '[A'  => sub { print "Up\n" },      # those escape sequences shoul
+d
    '[B'  => sub { print "Down\n" },    # work in the linux console
    '[C'  => sub { print "Right\n" },
    '[D'  => sub { print "Left\n" },
    '[G'  => sub { print "Center\n" },
    '[5~' => sub { print "PgUp\n" },
    '[6~' => sub { print "PgDn\n" },
    '[1~' => sub { print "Home\n" },
    '[4~' => sub { print "End\n" },


    '[[A' => sub { print "F1\n" },


    '[2~' => sub { print "Insert Key" },        # Insert key
    '[3~' => sub { print "Delete Key" },        # Delete key
);


startListening();

sub startListening {

    # Disable CTRL keys
    ReadMode(4);
    my $word = '';
    my $prompt = "> ";
    my $pos = 0;

    print $prompt;
    while(1){

        my $char;
        while (!defined ($char = ReadKey(-1))){
            usleep 1_100;
        }

        #sysread(STDIN,$char,1);               # Read a single charact
+er

        my $ord = ord($char);

        if ($ord == 0) {

            #ioctl(STDIN,1,$old_ioctl);         # Sets it back to cook
+ed mode.
            #print Dumper($old_ioctl);

            #sysread(STDIN,$char,1);


            #while (!defined ($char = ReadKey(-1))){
            #    sleep 1;
            #    print "#\n";
            #}

            #print "NEW: " . hex(ord($char)) . "\n";

         }

        last if ($ord == 3);

        last if ($ord == 4);

        print $char;
        #print $ord;

        if ($ord == 10 or $ord == 13) {  # "Enter"
            print chr(8) x (length($word) + length($prompt))
            .     ' ' x (length($word) + length($prompt))
            .     "\r"
            ;
            enterPressed($word);
            $word = "";
            print $prompt;
            $pos = 0;
            next;
        }
        elsif ($ord == 127) { # ie "Backspace"
            #chop($word);
            #print chr(8),' ',chr(8);
            #print "BACKSPACE!\n";
            next;
        }
        elsif ($ord == 27) { # "ESC"
            print chr(8) x (length($word) + 1)
            .     ' ' x (length($word) + 1)
            .     "\r"
            .     $prompt;
            $word="";
            $pos = 0;
        }
        elsif ($ord == 8) {

            if ($pos == 0) {
                print " ";
                next;
            }
            --$pos;
            #print "BACKSPACE!\n";
             #print chr(8) . ' ' . chr(8);
             chop($word);
             print " " . chr(8);
             next;
        }

        if($ord >= 32 && $ord < 155) {
            ++$pos;
            $word .= chr($ord);
            #print '*';
        }

    }

    ReadMode(0);
}

sub clearstream {
    while(1) {
        my $char;
        if (defined ($char = ReadKey(-1)) ){}else{return}
    }
    return;
}

sub enterPressed {

    my $word = shift;
    print "WORD: " . $word . "\n";

}

[download]
ANY suggestion is warmly welcomed! Since all that is left now is to somehow make it possible for me to know what "special" key is pressed.

Thanks,
Ace

In reply to Re: Term::ReadKey problem! by Ace128
in thread Term::ReadKey problem! by Ace128

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.