if ( @ARGV )
    {
    foreach ( split(' ', $ARGV[0] ) )
        {
        print "Parameter is $_\n";
        }
    }