Select Code to Download

$ cat 11103867.pl

package Employee {
    use Moo; # loads strict and warnings and provides new()
...
Dino Flintstone,15,40
Bam-Bam Rubble,5,12
Mr. Slate,65,32

$ perl 11103867.pl

Query for an employee:
Barney Rubble
...
Give Barney Rubble a raise? Enter new wage or 'No'
20
The average hourly wage overall is now 24.2