in reply to Prototype mismatch error

The most likely cause of the prototype mismatch errors is that require happens at run-time, which is long after prototypes checks are applied. You need to force the require to happen at compile time by putting it in a BEGIN block:

BEGIN { require 'commons.pl' }

For the uses in commons.pl to work properly, you should make sure that they are executed with package main:

# in commons.pl... package main; use DBI; use Date::Calc qw( Decode_Date_US Add_Delta_Days); use File::Copy; # etc.

Unfortunately, you can't use lexical variables at all this way since they are file scoped, not package scoped. You'll have to use package variables instead, and predeclare them in main.cgi:

# in main.cgi... our $q, $variables; # or, for < 5.6: #use vars qw/$q $variables/; BEGIN { require 'commons.pl' }

# in commons.pl, _AFTER_ package main LINE! our $q = new CGI; our $variables; # etc.

Hope that helps. :-)

bbfu
Seasons don't fear The Reaper.
Nor do the wind, the sun, and the rain.
We can be like they are.