sub my_touch {
    my $f = shift;
    open my $fh, '>>', $f or die "Can't write to $f: $!\n";
    close $fh;
}