--- a/install	Sun Sep 01 12:10:43 2013 +0200
+++ b/install	Sun Sep 01 12:13:15 2013 +0200
@@ -6,6 +6,12 @@
 use File::Spec::Functions qw(catfile rel2abs abs2rel canonpath);
 use Sys::Hostname;
 use autodie;
+use Getopt::Long;
+
+my $opt_force = 0;
+
+GetOptions('f|force!' => \$opt_force)
+    or die "Usage: $0 [--force]\n";
 
 # list of files/dirs to exclude
 my @exclude = map { qr/$_/ } qw(
@@ -13,6 +19,8 @@
     ^\.hg$
 ), basename $0;
 
+... if $opt_force;
+
 foreach my $this (grep { not $_ ~~ @exclude } glob('.*')) {
 
     my $link = catfile $ENV{HOME}, $this;