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