package Manko;
sub new {
 my( $class ) = @_;
 bless $class;
}

sub manko {
 print "manko";
}

便利なクラスを作ってみました。ぜひ利用してください