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