Select Code to Download

#!/usr/bin/perl -w

...
    }
}

#!/usr/bin/perl -w
package Search2;
...
    @DB::EXPORT_OK   = qw(new say_hello);
}
1;

package SharedVariable;

...
    @SharedVariable::EXPORT_OK   =  qw ($session_dir $cookie $page $ac
+tion $dir $dirLang $dirError $imgdir $session_id $can_do_gzip $curren
+t_ip $lang $LANG %ARTICLE %SESSION %SERVER %USER $CGISESSID %LABEL %E
+RROR %VALUE $COMMANDID %COMMAND %DATE %PAYPALL $INDEX %LINK  $query $
+session $host $t0  $client);  
  }
1;

#!/usr/bin/perl -w
package MyDB;
...
    @DB::EXPORT_OK   = qw(new sqlSelectMany1 sqlConnect sqlSelect sqlI
+nsert sqlUpdate sqlSelectMany sqlDelete);
}
1;

[Fri Dec 28 14:11:18 2018] [error] [client 127.0.0.1] [Fri Dec 28 14:1
+1:18 2018] Search2.pm: Subroutine new redefined at Search2.pm line 13
+.