Get currently runing script directory in Perl

dir.pl

use strict;
use warnings;
use File::Spec;
use File::Basename;


#return current scipt directory
sub get_current_dir {
	my $dir = dirname(File::Spec->rel2abs(__FILE__));
}