use FindBin qw($Bin); print $Bin; [download]
In reply to Re: find the path of perl script by gulden in thread find the path of perl script by perlnewbieak