.namespace [ "MyPerlClass" ]

.sub "__onload" :load
    .local pmc klass
    newclass klass, "MyPerlClass"
    .return ()
.end

.sub foo 
    $S0 = "MyPerlClass::foo"
    .return($S0)
.end

.sub bar 
    $S0 = "MyPerlClass::bar"
    .return($S0)
.end