$report = do {
    local *D;
    opendir(D,".");
    my $t = time;
    my $ret;
    while(my $f = readdir(D)) {
        next if $f =~ /^\.\.?$/;
        my $ft = -M $f;
        if($ft < $t) {
            $ret = $f;
            $t = $ft;
        }
    }
    closedir(D);
    $ret;
} ;