use FindBin; use lib $FindBin::Bin; use FeCore qw/:ALL/; use FeFile qw/:ALL/; use FeGui qw/:ALL/;