Select Code to Download

 if (ref $searchresult) {
     print "Found it: @$searchresult\n";
...
 else {
     print "It wasn't found\n";
 }