my $filename = (split /[\\\/]/, $path)[-1];