sub wanted {
    return unless /\.out$/;
    my $ctime = (stat $_)[9];
    if ($ctime < time()-(2*60*60)) {
        print "$_ is older than 2 hours.\n";
    } elsif ($ctime > time()) {
        print "$_ has used a time machine to get here!\n";
    } else {
        un#link $_;
        print "I hate new files.\n";
    }
}