__FILE__ site:perldoc.perl.org

BEGIN { 
    use File::Spec;
    use File::Basename qw' dirname ';
    our $thisf = File::Spec->rel2abs(__FILE__);
    our $thisd = dirname($thisf);
}
[download]

Then read $thisf if its available, say using File::Slurp or whatever