# modified source
use File::Spec::Functions qw(abs2rel splitdir);
foreach (@example) {
    my $rel = abs2rel($_, $key);
    my($topdir) = splitdir($rel);
    printf "in: %s\nout: %s\ntop directory: %s\n\n", $_, $rel, $topdir;
}