Select Code to Download

#!/usr/bin/perl

...
    $$telnet->open(Host=>$host);
    $$telnet->login($username,$password);
}