pakage Guts;

sub new 
{
  my $class = shift;
  my $self = {};

  $self = bless($self, $class);
  return $self;
}

sub gutsy
{
  $self = shift;
  print join(" ", @_);
}

1;