#!/usr/bin/perl -wT

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

{
    # assigns to the variable
    my  $sound1 = "knor1";

    # assigns to the variable
    our $sound2 = "knor2";
}