package Sing;
use strict;
use warnings;

my $obj;


sub new {
        my ($class) = @_;

        $obj = bless {}, $class if not $obj;
        return $obj;
}

1;