package Hello5;
use strict;

sub new {
  my $class = shift;
  my $ref = {};
  bless ( $ref, $class );
  return $ref;
}

sub greet {
   my ($ref, $str)= @_;
   return $str;
}

sub greet2 {
   return "Hi\n";
}
1;