#!/usr/local/bin/perl
use strict;
use warnings;


package sample;

sub new {
  my ($class, @args) = @_;
  my $obj = bless $class, ${@args};
  return $obj;
}