packageとはクラスである。 #!/usr/bin/env perl use strict; use warnings; package X; sub new { bless {}, $_[0] } sub x { print "x\n" } package Y; use base 'X'; sub y { print "y\n" } package Z; use base 'Y'; sub z { print "z\n" } package main…