#!/usr/bin/perl -w

use SPOPS;

use MyUserClass;

{
    SPOPS::set_global_debug( debug => 1 );

    my $otherUser = MyUserClass->fetch(4);
    foreach my $key ( keys %$otherUser ) {
      print "Key $key: $otherUser->{$key}\n";
    }
}