Help for this page

Select Code to Download

Select or download this

use FindBin qw($RealBin);
my $safepath;
...
    carpout(\*LOG);
}
use lib "$safepath";