#!/usr/bin/perl
# move your dotfiles to ~/etc

#if((! -e "$ENV{HOME}/etc") && (! -d "$ENV{HOME}/etc")){ system("mkdir ~/etc"); }

opendir(HOME, "$ENV{HOME}/etc") or die "Can't open $ENV{HOME}/etc: $!";
while ( defined ($oldfile = readdir HOME) ) {
       next if $oldfile =~ /^\.\.?$/;     # skip . and ..

       $newfile = $oldfile;
       $newfile =~ s/^/./g;

       if(-l "$ENV{HOME}/$newfile"){ system("rm $ENV{HOME}/$newfile"); }

       system("mv $ENV{HOME}/etc/$oldfile $ENV{HOME}/$newfile");
}
closedir(HOME);

rmdir "$ENV{HOME}/etc";