Select Code to Download

sub check_id {
  my ( $id )= @_;
...
  }
  return $res;
}

            $obj->load_via_id() ;
            die "invalid user" unless $obj->activated_account ;

  if ( !$obj->activated_account ) {
    $suppres_warning++;
    die "invalid account";
  }