#!/usr/bin/perl -w
$a = Max->new(); print "Enter a doctor's age, or ^D to quit\n"; while($line = <STDIN>) { $a->newValue($line); } print "The max age is :"; print $a->getMax(); print " and that's old!\n"; |
Field Name | Meaning | Example |
Dr | Name of the Doctor | "Renayee" |
Nurse | Attending Nurse | "Zach Owens, RN" |
When | When it happened | Jan 23, 2000, 11:42pm |
What | What happened | "The doctor slipped and fell. The scalpel he was holding accidentally stabbed the nurse, who was injecting the patient at the time. The nurse ripped the artery of the patient as he jerked back. The patient began to bleed. Meanwhile, the doctor was finding ice to reduce head swelling. The patient died." |
Cost | Estimate of potential liability | $106,274.01 |
Picture | A picture of the accident scene, jpg format. |