#!/usr/bin/perl
use warnings ;
if ($#ARGV >= 0)
{for ($n=0 ; $n<=$#ARGV ; $n++)
  {print("ARGV[$n]=$ARGV[$n]\n") ; }
}
else
{print("No command line parameters found.\n") ; }


##</code><code>##

> args.pl abc

##</code><code>##

ARGV[0]=abc

##</code><code>##

No command line parameters found.