#!/usr/bin/perl
######################################################################
# testcontext.pl
######################################################################
# Perl Power! - Michael Schilli 1998
######################################################################

sub testcontext {
    if(wantarray) {
        print "List context\n";     # list context diagnosed
    } else {
        print "Scalar context\n";   # scalar context diagnosed
    }
}