Select Code to Download

sub cmd_unixlong {
        my ($obj, $cmd) = @_;
...
        $obj->cmd("$line ; exit");

    } # end sub cmd_unixlong

sub cmd_telnetlong {
        my ($obj, $cmd) = @_;
...
        ## Send the last line and return the output.
        return $obj->cmd("$line ; exit");
    } # end sub cmd_unixlong