#!perl

$host = "192.168.200.1";
$timeout = 1;
use Net::Telnet;

println("- connect to $host ...");
$t = Net::Telnet->new( Timeout => $timeout, Prompt  => '/[\$%#>]\s*$/', Host    => $hostname );
$rc = $?;
println("	- result: $rc");

trylogin("admin", "123");
trylogin("admin", "abc123");
trylogin("admin", "123abc");


sub trylogin{
	my $u = shift;
	my $p = shift;
	println("- try to login with $u and $p ...");
	$t->login($u, $p);
	my $rc = $?;
	println("	- result: $rc");
}
sub println{
	my $str = shift;
	print $str ."\n";
}