use strict;
use warnings;
use FindBin;

print $FindBin::Bin, "\n"; # prints c:\dev\temp\monks\