use FindBin;
print "\nBinary is: $FindBin::Bin \n";