use strict;
use warnings;
use Smart::Comments;
use lib 'tools';
require 'utils.pl';
use File::stat;
use File::Spec;
use File::Compare;
use File::Copy;

sub main {
    while (defined(my $rel = <>)) {
        chomp $rel;
        my $saved = rel2saved($rel);
        next if !-e $saved;

        my $abs = File::Spec->rel2abs($rel, $ENV{HOME});

        copy($abs, $saved) or die $!;
    }
}

main();