If you would like to do it in Perl then you read a simple example in the documentation of Net::Telnet
