Perl Shell - A Solution

$script = shift;

This line is used to extract and hold the script filename from the other command-line arguments.

Recall: