Select Code to Download

c:\dev>type arg.pl
#!/usr/bin/perl
...

my $i = 0;
say $i++ . ":$_" for ($0, @ARGV);

c:\dev>perl arg.pl "abc \" xyz" bob
0:arg.pl
1:abc " xyz
2:bob