Select Code to Download

sub now {
    login();
...
    $exp->send("\e");
    logoff();
}

sub now {
    my $exp = login( @_ );  # caller passes login args to us.
    ...
    logoff( $exp );

    my @comseq = (
        [ 256, '-foo', 'Bar?', "baz\r" ],
...
        $exp->expect( @$com );
        $exp->send( $send );
    }