Select Code to Download

$VAR1 = [
          'test.xls',
          'test-2.xls',
          'test-3.xls'
        ];

#!/usr/bin/perl
use strict;
...
        /\.xls$/
        or die ("Invalid format for option expected -p '*.xls'\n");
=cut

This is the number of @ARGV arguments before the process 4
f
Invalid format for option expected -f '*.xls'
Invalid commmand line options.
usage: long.pl -f file(s).xls -p file.csv

Getopt::Long::GetOptions(
    'f=s{1,}' => sub {
...
    }
    )
    or usage("Invalid commmand line options.");