#commandline.pl

#\!C:\strawberry\perl\bin\perl.exe
$y=0;
for $x (@ARGV)
{print "argument $y is $ARGV[$y] \n";$y++;}

##</code><code>##

#split.pl

#\!C:\strawberry\perl\bin\perl.exe
while($input=<STDIN>)
{
@line=split(" " ,$input);
$i=0;
for $word (@line)
	{
	$len=length($word);
	print " word $i = '$word' has a length of $len \n";
	$i++;
	}
}