VinsWorldcom@\\vmware-host\Shared Folders> cat test.pl
#!/usr/bin/perl

use strict;
use warnings;

use Net::Telnet::Cisco 1.10;

my $session = Net::Telnet::Cisco->new(
    Host      => $ARGV[0],
    binmode   => 1,
    Errmode   => 'return',
) or die "Failed to connect";

$session->login;
printf "%s\n", $session->last_prompt;
# if/then logic based on "$session->last_prompt" goes here
$session->close;

##</code><code>##

VinsWorldcom@\\vmware-host\Shared Folders> test.pl r1
Username:

VinsWorldcom@\\vmware-host\Shared Folders> test.pl r2
Password: