use Term::Cap;

$t = Tgetent Term::Cap {TERM=>undef, OSPEED=>9600};

print $t->Tputs("cl");