BEGIN
{
    use FindBin '$Bin';
    push @INC, $Bin;
}

my $dirToScript = $Bin;