examples/arrays/shift_argv.pl
#!/usr/bin/perl
use strict;
use warnings;

my $filename = shift or die "Usage: $0 FILENAME\n";

shift defaults to shift @ARGV

Another usage of the short circuit

Slight bug.
Does it matter?