foreach (@ARGV) {
    if (-d $_) {
        $bkpfile = "./symlkbkp";
        # TODO include date and time in bkpfile name
        open (OUTFILE, ">$bkpfile") || die "Cannot create $bkpfile: $!";
        print "Backup file is $bkpfile\n";
        opendir (DIR, $_) || die "Can't open $_: $!" ;
        foreach $f (sort readdir(DIR)) {
            if (defined($l = readlink($f))) {
                print "Removing $f...";
                unlink ($f) || die "failed!\nThat's unbelievable! $!";
                $outstring = "$f -> $l";
                $outstring = $outstring . "/" if (-d $l);
                print OUTFILE "$outstring\n";
                print "done.\n";
            }
            elsif (-l $f) {
                print "$f is a symlink!\n";
            }
            else {
                print "$f isn't a symlink\n";
            }
        }
        close (OUTFILE);
        closedir (DIR);
    }
    else {
        print "WTF!? $_ is not a directory!\n";
    }
}