use Tsutaya::Rental;
#use Tsuhan::Machine::RemoveMosaic;

our $av = Tsutaya::Rental->get(’UCHU-KIKAKU’,'AOI SORA’);

my $nounai = &imagine($av);


sub imagine{
　　my $douga = shift;
　　#return Tsuhan::Machine::RemoveMosaic($douga);
　　return &usume($douga);
}

ちゃんと動くかどうかなんて、この際関係ないよね。