view release on metacpan or  search on metacpan

scripts/fish_farm_2.pl  view on Meta::CPAN

my ( $feeder, $oxygen, $water_monitor, $water_level, $water_filter ) = install_all_systems;
show_installation_status();
sleep 1;
show_all_threshold();

$water_level->set_water_level_increase_height(5);

my $feeder_verbose = 1;

print colored(['bold bright_blue'], "Prese <ENTER> to start monitoring your fish farm"); <>;
say "";

while ( "fish are swimming happily" ) {

    # get input for DO, pH, temperature, turbidity, in one go
    print colored(['bold bright_blue'], "Enter current DO level (mg/L): ");
    chomp ( my $current_DO = <>);
    
    print colored(['bold bright_blue'], "Enter current pH value: ");
    chomp ( my $current_pH = <>);