my $command  = "doorway";
my $location = "$user\@$host.$display";
print "Location = $location\n";
my $arg      = "MSG Hello user";
my $ret      = system($command, $location, $arg,);