$vt220_pgup = chr(27) . chr(91) . chr(51) . chr(126);
print $exp $vt220_pgup