use warnings; use strict; use FindBin qw($RealBin); use lib $RealBin; use Module qw(flail_around); flail_around();