Select Code to Download

 my $return = `grep -w  $searchnum $file`;
   if(length $return){  $shash{$dthread}{'luck'} = 1;}

#!/usr/bin/perl
use warnings;
...
1A2z3sCDNYLwDeDjlODmCdUXZ1vpOa3ttYBOAQReYGCiqACoGDGjSA19nVCgVBR1bosEAD
+s=';
return $gif;
}