> package Manko;
> sub new {
>  my( $class ) = @_;
>  bless $class;
> }
> sub manko {
>  print "manko";
> }
> 便利なクラスを作ってみました。ぜひ利用してください

use Manko;
$manko = Manko::new();
$manko->manko() while 1;

参考：2003/11/02(日)01時27分30秒