my $file = (split m{/} => $fullpath) [-1];