use strict;
use warnings;
use English;
use Term::Cap;

my $PortName = 'MyPort';
if (scalar(@ARGV)) {
  $PortName = $ARGV[0];
}

$ENV{TERMPATH} = '/etc/remote';
my $terminal = Tgetent Term::Cap { TERM => $PortName, OSPEED => 9600};
print $terminal->Tgoto('dv', "", "",);