#!/usr/bin/perl
use 5.010;
use strict;
use warnings;
use Net::Telnet;
	
    ## Global variables.
    my $Term;
    my $telnet;
    my $user = "deneme";
    my $passwd = "Try123.";
    

        print "Enter your IP : ";
        my $host = readline STDIN;
        chomp $host;
                
        my $prompt = '/(?:Password: |[>])/m';  # your regexp for shell prompt here
        
	open my $Bm_Report, "> BM_Report.txt" or die "can't open the file: $!\n";
	$telnet = new Net::Telnet (Timeout => 1000, Errmode=>'die');
        $telnet->input_log($Bm_Report);
        
	$telnet->open($host);
	$telnet->login($user, $passwd);
	print $telnet->cmd("--------------- $host ----------------");
	print $telnet->cmd('cat /tmp');
	$telnet->cmd('telnet 100.0.2.1');
	$telnet->waitfor('login:');
	$telnet->print("deneme");
	$telnet->waitfor('Password: ');
	$telnet->print("Try123.");
	
$telnet->close;