use Net::Telnet;            # use the telnet module

my $host = '3750g';

my $t = new Net::Telnet (Timeout => 10,
                         Prompt  => '/3750G\>/',
                        );
$t->open($host);
$t->login($user,$pass);

@data = $t->cmd("show clock");

print "data is @data";

$t->close;