use vars qw($Bin $Script);
BEGIN { ($Bin, $Script) = split /([^\/\\]+)$/, $0 }
use lib $Bin . 'lib';