use Cwd; my $this_file_full_path = Cwd::abs_path(__FILE__); print $this_file_full_path;