#!/usr/local/bin/perl -w

use strict;
use Net::Telnet;

my $username = "xxxx";
my $passwd = "xxxx";
my $hostname = "xxxx";

#use Net::Telnet ();
	
       my $t = new Net::Telnet (Timeout => 10,
                              Prompt => '/}/');
	$t->input_log('Tempature.out');
	$t->errmode('return');
        $t->open($hostname);
        $t->login($username, $passwd);
	$t->print("ksh");
	$t->print("export DISPLAY=10.231.14.57:0.0");
	$t->print("nohup /usr/openwin/bin/xterm &");
	sleep 2;
	$t->close;