se Net::Telnet ();
$t = new Net::Telnet (Errmode    => "return");
$node = "10.200.247.178 5691" ;

 {{ $t->open("$node")}
	print "$node baglanildi\n";
	$t->print("CON_REQ[alcatel]");    ## Wait for second prompt and respond with city code.
	@Lines1 = $t->print("^d"); 
	print "@Lines1\n";
	sleep (3);
	##$t->waitfor('/CON_CONF[]/');
	@Lines2 = $t->print("LIST_PM_FTP_REQ[15|2006060321|2006060416|{}|DXC_MT2{}]");    ## Read and print the first page of forecast.
	$t->print("^d");
  print "@Lines2\n";
	sleep (3);
	##$t->waitfor('//');
	$t->print("^]");

    
    $t->close;     
  }