use FinBin qw($Bin); # oder so
use lib qw(pm/);