#!/usr/bin/perl -w

use Net::Telnet;

$t = new Net::Telnet(Timeout => 2810,
                         Prompt  => '/%/',
                         Host    => 'ip address' );

$t->login( "user", "password" );
{
        $t->cmd( "your command here" );
}
$t->close;