希望 use fbis; use Beer::PremiumMalts; my $fbis = fbis->new; $fbis->drink(Beer::PremiumMalts->new( type => 'big' )) while $fbis->stomach; $fbis->say->say->say->say; $fbis->sleep(60 * 60 * 12); 現実 use fbis; use Work::Mobile::WebApp; my $fbis = fbis->new; my $work = Work::Mobile::WebApp->new( job_type => 'infinity' ); while ( my $job = $work->next_job ) { $fbis->work($job); last unless $fbis->life--;