Help for this page
use FindBin; use File::Spec::Functions qw/updir catdir/; ... use File::Spec::Functions qw/splitdir catdir/; use lib do { my @p = splitdir $FindBin::RealBin; catdir @p[0 .. $#p-1], 'lib' };
www.com | www.net | www.org
No recent polls found