if( my ($obj) = test() ) {
    # ...
}