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

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