Am I in time to do the first OO one?

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

print "guess the song title:\n";
### I Hate myself and I want to die (Nirvana)


package me;
sub new {
    my $class = shift;
    my $self = {};
    bless ( $self, $class );
    return $self;
}

sub die {
    my $self = shift;
    CORE::die();
}

sub hate {
    my $self = shift;
    --$self->{'esteem'};
}

package main;
print "life? meh.\n";
my $self = me->new();
$self->hate() && $self->die();
[download]