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