use Cwd "abs_path";

my $path = abs_path($0);