#!/usr/bin/perl -w
use strict;

package search;

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

package main;

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

print "exit code: $exitcode, message: '$msg'\n";