package search;
use Scalar::Util 'dualvar';

sub find {
    # ...
    return dualvar -1, "my error message";
}

package main;

my $ret = search::find("foo", "bar");

printf "exit code: %d, message: '%s'\n", $ret, $ret;  
      # exit code: -1, message: 'my error message'