Perl windows telnet session end

[ckant8]

I have written Perl script to automate my work using telnet to connect to windows and start server.

#!/usr/bin/perl -w
use Net::Telnet;
$telnet = new Net::Telnet ( Timeout=>30, Errmode=>'die');
$telnet->open('ip');
$telnet->waitfor('/login: $/i');
$telnet->print('admin');
$telnet->waitfor('/password: $/i');
$telnet->print('password');
$telnet->waitfor('/\C:\\\\Documents and Settings\\\\Administrator/');
$telnet->print('start server');
$telnet->close();

When the program ends, server again returns back to not running state. In Unix, this works well.

After $telnet->close(); the server went back to old state(not running). I want the server to be running, even the program ends.