use strict;
use warnings;
use Smart::Comments;

sub main {
    while (defined(my $rel = <>)) {
        chomp $rel;
        my $saved = rel2saved($rel);

        if (!-e $saved) {
            print "? $rel\n";
        }
    }
}

sub rel2saved {
    my $rel = shift;

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

main();