X:\>perl foo.pl
Calling test_function with no arguments:
oops: you did not pass any arguments at foo.pl line 10.

Calling test_function with a single undefined argument:
oops: you did not pass any arguments at foo.pl line 10.


X:\>