use FindBin qw($Bin);
print $Bin . "\n";