#!C:/Perl/bin/perl.exe

use Net::TL1;


$obj = new Net::TL1 ({
    Host => '172.18.9.140',
    Port => '32775'              
  });



  $obj->Login ({
    Target => '172.18.9.140',
    User => 'provis1',
    Password => 'password',
    ctag => 'vg'               
  });