use FindBin qw($Bin); chdir($Bin);