I believe what you are looking for is described at http://perl.apache.org/docs/2.0/api/Apache2/RequestRec.html#C_status_. Which explains:

Or, to modify your example:

sub return_test {
    my $r = shift;
    return $r->status();
}
[download]