Select Code to Download

#!/usr/bin/perl -w
use strict;
...

print "\n" . $agent->uri();

1200
http://monitoring.cogenra.com/login

http://monitoring.cogenra.com/login