use IV::Caffeine ; my $favorite_poison = shift ; my $flowrate = shift ; my $time_of_day = shift ; my $groggy = shift ; if ($time_of_day ne "pm"){$time_of_day = "am" ;} while ($time_of_day eq "am" || $time_of_day = "pm") { my $leftarm = "InnerLeftElbow" ; my $rightarm = "InnerRightElbow" ; $injector = new IV::Caffeine(Poison => $favorite_poison, NeedleSize => $flowrate) $injector->pierce_skin($leftarm) ; $injector->pierce_skin($rightarm) ; $injector->begin_flow ; if ($groggy >= 5) {$injector->increase_flow($leftarm, $rightarm) ;} }