Added -f argument to force file creation (rewrite)

bin/mkexec.pl

@@ -8,7 +8,9 @@ sub usage; sub mkexec; sub guesstype; sub getcmd; sub launch_editor;
 
 my $DEFAULT_TYPE = 'pl';
 my $DEFAULT_MODE = 0755;
+my $DEFAULT_FORCE = 0;
 
+my $force = $ARGV[0] == '-f' ? shift : $DEFAULT_FORCE;
 my $name = shift or usage;
 my $type = ($ARGV[0] ? shift : guesstype $name);
 
@@ -35,7 +37,7 @@ $cmds->{editor}->{run}  = "editor '%s'";
 
 
 if (exists $bangs->{$type}) {
-    -e $name || mkexec $name, mkbody($type);
+    -e $name and not $force || mkexec $name, mkbody($type);
     chmod $DEFAULT_MODE, $name;
     launch_editor $name;
 } else {