use Term::Cap;         
$/=undef;              
my $t=Term::Cap->Tgetent ({TERM=>undef, OSPEED=>38400});
__END__
failed termcap lookup on xterm at - line 3