# c-test1.pl -- Eine Funktion func1() fuer embedmain.c/test1.c

sub func1 {
    print '@_ not defined', "\n" unless defined @_;
    print "my argument stack: (", join(':', @_), ")\n";
    my $context = wantarray();
    print "void context\n"   unless defined $context;
    print "scalar context\n" if defined $context and not $context;
    print "list context\n"   if defined $context and $context;

    return ("hello", "world");
}