use vars qw/$BASEDIR/;

BEGIN {
    use FindBin;
    $BASEDIR = $FindBin::Bin;
    $BASEDIR =~ s@/bin$@@;
}