#!/usr/bin/perl -w
######################################################################
# (c) Michael Schilli 1999
######################################################################

sub testcontext {
    if(wantarray) {
        print "Listen-Kontext\n";   # Listen-Kontext 
                                    # diagnostiziert
    } else {
        print "Skalar-Kontext\n";   # Skalarer Kontext 
                                    # diagnostiziert
    }
}

@a = testcontext();
$a = testcontext();