#! /usr/local/bin/perl5 $done_while = "not done"; $done_until = "not done"; while ($done_while eq "not done") { print("Enter days overdue, enter '0' to quit. "); $overdue = <STDIN>; chop($overdue); if($overdue == 0) { $done_while = "done"; } else { $fine = $overdue*0.05; print("\$$fine \n"); } } # Here is the same loop, only implemented with until. print("I finished the first loop. \n"); until ($done_until ne "not done") { print("Enter number of days overdue, enter '0' to quit. "); $overdue = <STDIN>; if($overdue == 0) { $done_until = "done"; } else { $fine = $overdue*0.05; print("\$$fine \n") } }