use Term::Cap;

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