#!/usr/bin/perl -w

use strict;
use Net::Telnet;

my $timeout = 20;
my $port = $V_TELNET_PORT;
my $host = '$V_IP_ADDR';
my $user = '$V_USERNAME';
my $pw = '$V_PASSWORD';
my $prompt = '/.+[>#]$/';

my $conn = new Net::Telnet (
        Timeout => $timeout,
        Port => $port,
        Prompt=>$prompt);
$conn->open("$host");
$conn->login($user, $pw);