Select Code to Download

#!/usr/bin/perl -wT

...
        return 'knor';
    }
}

Use of uninitialized value $sound1 in print at ./tmp.pl line 30.

Use of uninitialized value $Animal::Hog::sound2 in print at ./tmp.pl l
+ine 31.