Better way to parse args

bin/mkexec

 use warnings;
 
 sub usage; sub mkexec; sub guesstype; sub getcmd; sub launch_editor;
-sub nextarg { $ARGV[0] }
 
 my $DEFAULT_TYPE = 'sh';
 my $DEFAULT_MODE = 0755;
 ## INIT ## -------------------------------------------------------------------
 ## '''' ##   ' ' '  '   '    '     '      '       '        '         '
 
-defined nextarg() or usage;
-my $force   = (nextarg() eq '-f' ? shift : $DEFAULT_FORCE);
-my $name    = (defined nextarg() ? shift : usage);
-my $type    = (defined nextarg() ? shift : guesstype $name);
+my $force = $DEFAULT_FORCE;
+my $name; my $type;
+
+foreach (@ARGV) {
+    if (m/-f|--force/) {
+        $force++;
+    } elsif (defined $name) {
+        $type = $_;
+    } else {
+        $name = $_;
+    }
+}
+
+usage unless defined $name;
+$type = guesstype $name unless defined $type;
 
 my $bangs = {
     pl   => `which perl`,