Help for this page
use lib $0 =~ m|(.*)/|;
use Cwd qw( realpath ); use File::Basename qw( dirname ); use lib dirname(realpath($0));