#!/usr/bin/perl -w

# ./test_class.pl

use strict;
use My::Package::Class;

my $c = Class->new("arg");
print ref($c)."\n";

##</code><code>##


# ./My/Package/Class.pm
package Class;
use strict;

sub new {
        my $class = shift;
        my $self = {
                        data => shift,
                };
        return(bless($self,$class));
}
1;