my $mtime = (stat $tapes)[9];
my $now = time;
if( $mtime < ( $now - 604800) ) { 
    print "$tapes is more than seven days old.\n";
}