print $main::pet;