#!/usr/bin/perl
use Net::Telnet;
print "Enter IP";
my $var=<STDIN>;
chomp $var;
print "Enter User";
my $user=<STDIN>;
chomp $user;
print "Enter Password";
my $pass=<STDIN>;
chomp $pass;

#$telnet = new Net::Telnet->new( Timeout=>100,Prompt => '/[\$%#>] $/');
$telnet = new Net::Telnet->new( Timeout=>100 );

$telnet->open($var);
$telnet->login($user,$pass);

#SAMPLE copy

$telnet->cmd("echo $1 > file");

$telnet->close;