use strict;
use warnings;

sub rel2saved {
    my $rel = shift;

    $rel =~ tr/./_/;
    return "./dot-files/$rel";
}

1;