SYNOPSYS

use FindBin qw($Bin); BEGIN { unshift @INC, $Bin; } use tools;