use Term::ReadKey;

my $buf = '';

ReadMode 4;  # raw mode

while (my $key = ReadKey()) {
    
    last if $key eq "q";      # quit loop

    $buf .= $key;
    $buf = substr($buf, -4);  # keep last 4 bytes
    
    # debug
    print unpack("H*", $buf), "\n";

    if ($buf eq "\x1b\x5b\x35\x7e") {     # \e[5~
        print "PgUp\n";
    }
    
}
ReadMode 0;  # reset tty