#!/usr/bin/perl

# Accessing command line arguments.

# eg $ perl ./p029 a b c
#   prints *a* ...
sub test01
{
  foreach $arg (0 .. $#ARGV)
  {
    printf "*%s*\n",$ARGV[$arg];
  }
}

test01;