use warnings; use strict; use Getopt::Long; my @in; GetOptions('input=s', \@in) or die; die "Error: cant have multiple inputs" if @in > 1; print "input = @in\n";