use strict;
use warnings;
use diagnostics;
use lib '/perlmod/lib/';
use lib '/perlmod/arch/';
use lib '/tools/perl/lib/';
use lib '/usr/local/lib/perl5/5.8.8/';
use lib '/tools/perl/arch/';
use Expect;
use Spreadsheet::WriteExcel;
use MIME::Lite;
use File::Grep qw( fgrep fmap fdo );
use Time::Local;
use Net::SNMP;
use Term::ANSIColor;

print "login password: ";
system "stty -echo";
$to_be_usered = <STDIN>;
chomp $to_be_usered;
system "stty echo";