#! /usr/local/bin/perl -w use File::Copy; installHtaccess("subdir-htaccess.txt", qw(lib data templates)); installHtaccess("pub-htaccess.txt", "pub"); installRedirectRoot("."); sub installHtaccess { my ($htaccess, @targetDir) = @_; foreach my $dir (@targetDir) { if (copy($htaccess, $dir.'/.htaccess')) { print "Copied $htaccess to $dir/\n"; } else { print "Failed to copy $htaccess to $dir $?\n"; } } } sub installRedirectRoot { my ($dir) = @_; open FH, ">$dir/index.html" || die "$@"; print FH "\n"; close FH; print "Replaced $dir/index.html with redirect\n"; }