use lib q(/path/to/your/lib);
use Date::Calc;
####
Karls-Mac-mini:~ karl$ perl -e 'print join(qq(\n), @INC);'
/sw/lib/perl5
/sw/lib/perl5/darwin
/Library/Perl/5.12/darwin-thread-multi-2level
/Library/Perl/5.12
# and many more...
##
##
Karls-Mac-mini:~ karl$ ls -hlrt /Library/Perl/5.12
total 216
-r--r--r-- 1 root wheel 31K 26 Feb 2011 PPI.pm
-rw-r--r-- 1 root wheel 33B 11 Okt 2011 AppendToPath
-r--r--r-- 1 root wheel 543B 4 Apr 2012 oo.pm
-r--r--r-- 1 root wheel 20K 18 Jun 13:32 Carp.pm
-r--r--r-- 1 root wheel 8,9K 9 Sep 03:15 strictures.pm
-r--r--r-- 1 root wheel 946B 11 Sep 20:24 ok.pm
-r--r--r-- 1 root wheel 23K 23 Okt 17:27 Moo.pm
drwxr-xr-x 3 root wheel 102B 27 Okt 13:46 B
drwxr-xr-x 7 root wheel 238B 27 Okt 13:48 DateTime
# and many more...