13 while (defined(my $rel = <>)) {
15 my $saved = rel2saved($rel);
18 my $abs = File::Spec->rel2abs($rel, $ENV{HOME});
20 my $current_st = stat($abs);
21 my $saved_st = stat($saved);
23 if ($current_st->mtime > $saved_st->mtime &&
24 compare($abs, $saved) != 0) {