my $fn = (split "/", $file)[-1];