Perl Shell - A Solution

@ARGV = ($script);

This reassigns the value of the @ARGV array to contain only the script filename. Whatever value it had before is lost. The parenthese around $script are optional in this case, but make the statement look more like an array assignment.

Recall: