$ cat spw1081756tool.pl
#!/usr/bin/perl
#
use strict;
use warnings;

use 5.014;

say qq{$0 \@ARGV ->@ARGV<-};
$