use FindBin;
my $work_dir = FindBin::Bin;