$ cat >a

##</code><code>##

$ hexdump a
0000000 5b1b 3332

##</code><code>##

use Term::Cap;

$terminal = Tgetent Term::Cap { TERM => 'vt100' };
$f11=$terminal->Tputs('F1',1);