package PackageName ;
sub new {
      $class = shift ;
     return bless {}, PackageName ;
}