my $book = MyPackage->startup( $stuff );

package MyPackage;

sub startup {
    # do stuff here, like creating the object

    # do your check for authority here and exit, if appropriate

    # Do more stuff here

    return $book;
}