if( not -w $dir) {
    die "directory $dir not writeable.\n";
}