#!/usr/bin/perl
use Net::Telnet::Cisco;
use Net::Telnet;
use strict;
my $rtrip = '1.1.1.1';
my $input_log ="input.log";
my $output_log ="output.log";
my $enableyes;
#my $cmd = 'show clock';
sub juniperlogin
 {
 $rtrip = $_[0];

 print "Logging into router $rtrip\n";

my  $session = Net::Telnet::Cisco->new(Host => $rtrip,  Input_log => $
+input_log, Output_log => $output_log, Timeout => '30');

$session->login(Name => 'login', Password => 'support123', Prompt => '
+/ERX02>$/', Timeout => '30');
#$when = $session->send_wakeup( 'connect' );

if (! my $enableyes)
{
my $session->cmd('terminal length 0', String => "enables\s+$//5", Pass
+word => 'support123',  Prompt => '/ERX02#/', Timeout => '30');
 }

#$session->cmd(String => "set cli screen-length 0", Prompt => '/(?m:^\
+w+@[\w.-]+[>])/',  Timeout => '30' Errmode => "return");
 }
sub junipercmd
 {
my $cmd = $_[0];
#@output = $session->cmd(String => "$cmd", Prompt => '/(?m:^\w+@[\w.-]
++[>])/', Timeout => '60');
my @output = my $session->cmd('terminal length 10', String => "$cmd", 
+ Prompt => '/ERX02#/',  Timeout => '30');
  return @output;
 }
  &juniperlogin("1.1.1.1");

 my  $output =&junipercmd ("show clock");
   print my @output;
[download]