@@ -1,6 +1,8 @@
#!/usr/bin/perl
use strict;
use warnings;
+use FindBin;
+use lib "$FindBin::Bin/";
use File::Basename;
use Date::Parse;