#!/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;
   print "HA";

}

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

#!/usr/bin/perl
#
use lol;

$l = lol->new;

print $l->printHa();
$l->printHo();  #if i have this commented, printHa() will print "ha' and work, but since i have this, it doesn't even print ha