Help for this page

Select Code to Download


  1. or download this
    use File::Basename;
    use Cwd;
    
    cwd(dirname($ENV{"SCRIPT_FILENAME"}));