utime undef, undef, $name or 
    open (FOO, ">> $name") && close FOO or die "$!";