Help for this page

Select Code to Download


  1. or download this
    $ cat 11103867.pl
  2. or download this
    package Employee {
    use Moo; # loads strict and warnings and provides new()
...
Dino Flintstone,15,40
Bam-Bam Rubble,5,12
Mr. Slate,65,32
  3. or download this
    $ perl 11103867.pl
  4. or download this
    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