use FindBin;
$FindBin::Bin