#! /usr/local/bin/perl5 print("Please enter number of days overdue "); $overdue = <STDIN>; chop($overdue); $fine = ($overdue - 7)*0.05; if ($overdue == 0) { print("You turned in the book right on time \n"); } elsif ($fine < 1.0) { print("Your fine is dismissed\n"); } else { print("Your fine is $fine. \n"); }