sub test_callback
{
    print "Inside test_callback(): ", scalar(@_), " arguments.\n";

    my $hash = shift;

    print "[IN_SUB] ", $hash, " reference to ", ref($hash), \n";
}