#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

use Getopt::Long;
GetOptions('file=s' => \ my $file,
           'dir=s'  => \ my $dir);

say "Running $ARGV[0] with the following arguments:";
say for @ARGV[1 .. $#ARGV];