Perl Shell - A Solution
$script = shift;
This line is used to extract and hold the script filename from the other command-line arguments.
Recall:
shift
removes and returns the lowest indexed item of the array.
Since
shift
does not have an argument, it uses its default,
@ARGV
.