# Copyright (C) 2001-2008, The Perl Foundation.
# $Id: /mirror/trunk/t/perl/testlib/hello 34005 2008-12-16T19:09:35.143636Z coke  $

    # Get @ARGV as a ResizableStringArray
    get_params "0", P0

    # Discard the program name
    shift S0, P0

    # Look for additional args
    if P0, FOUND_EXTRA_ARG
        print "Hello World\n"
        end

FOUND_EXTRA_ARG:
    shift S1, P0
    print "Hello "
    print S1
    print "\n"
    end
