#!/usr/bin/perl -wT

use warnings;
use strict;

# call object method
Animal::Hog->sound();

# here we define the object 
{
    package Animal::Hog;

    my $sound1 = "knor1";
    our $sound2 = "knor2";

    sub new() {
        my $this = shift;
        my $class = ref($this) || $this;
        my $self = {};  

        bless $self; 
        return $self;
    }

    sub sound() {    
        my $self = shift;

        print $sound1, "\n";
        print $sound2, "\n";
        return 'knor';
    }
}