use FindBin;
my $script_dir = $FindBin::Bin;

or

use FindBind qw($Bin);
my $script_dir =  $Bin