Select Code to Download

#!/usr/bin/perl -w
use strict;
...
my ($exitcode, $msg) = search::find("foo", "bar");

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

sub find {
        ...
...
            $count++;   # never executed
            ...
        }

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

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