Read command line arguments

The simplest way to read command line arguments is via the special variable @ARGV.

use strict;
use warnings;

require 'anagrams.pm';

use feature 'say';


if (@ARGV != 1) {
    say 'Usage: get_anagrams.pl <word>';
    exit 1;
}

foreach my $word (get_permutations($ARGV[0])) {
    say $word;
}

Read more

• http://perldoc.perl.org/Getopt/Long.html
• http://alvinalexander.com/perl/perl-command-line-arguments-read-args
• http://modernperlbooks.com/books/modern_perl_2014/01-perl-philosophy.html#QEFSR1Y1