Help for this page

Select Code to Download

Select or download this

    use Cwd 'abs_path';
    my $szAbs = (abs_path $0);
    print "Abs path is $szAbs\n";