#!/usr/bin/perl -w

use Net::Telnet;

my $telnet;

# Your prompt setting might be different
$telnet = new Net::Telnet ( Timeout => 10, Errmode => 'die', Prompt => '/.*%/');
$telnet->open('YOUR HOSTNAME');  # Enter your host name here
print ("Please enter Username: ");
$user = <STDIN>;
print ("Please enter password: ");
$pass = <STDIN>;
$telnet->login($user, $pass); # You can hard code user/pass but here i am getting getting user input to avoid typing them in.
print ($telnet->cmd('date')); # Run a command then print out the result