use FindBin ();
my $pathToScript = $FindBin::Bin;