Something

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

package lol;


sub new {
   my $class = shift;
   my $self = {};
   $self->{retu} = undef;
   bless($self,$class);
   return $self;
}

sub printHa {
   my $self = shift;
   return "ha";
}

sub printHo {
   my $self = shift;
   my $bool = 0;
   my $blah = 1;
   while ($bool == 0 ) {
     $blah = 2;
   }
   print "HO";
}
1;


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

use lol;

my $l = lol->new;

print $l->printHa();
$l->printHo();