1:  $PensionerMax = 0.5;
    ^RCS keywords $Id$ not found
    ^RCS keywords $Revision$, $HeadURL$, $Date$ not found
    ^RCS keywords $Revision$, $Source$, $Date$ not found
    ^No package-scoped "$VERSION" variable found
    ^Code before strictures are enabled
    ^Code before warnings are enabled
                    ^0.5 is not one of the allowed literal values (0, 1, 2). Use the Readonly or Const::Fast module or the "constant" pragma instead
 2: print "$PensionerMax \n";
    ^Return value of flagged function ignored - print
 3: $Type = 'Child';
 4: print "$Type \n";
    ^Return value of flagged function ignored - print
 5: $Start = 0;
 6: print "$Start \n";
    ^Return value of flagged function ignored - print
 7: $Destination = 1000;
                   ^1000 is not one of the allowed literal values (0, 1, 2). Use the Readonly or Const::Fast module or the "constant" pragma instead
 8: print "$Destination \n";
    ^Return value of flagged function ignored - print
 9: $Distance = $Destination - $Start;
10: print "$Destination \n";
    ^Return value of flagged function ignored - print
11: $StandardFare = $Distance * 0.20;
                                ^0.20 is not one of the allowed literal values (0, 1, 2). Use the Readonly or Const::Fast module or the "constant" pragma instead
12: print "$StandardFare \n";
    ^Return value of flagged function ignored - print
13: if ($Type = 'Pensioner') {
14:     if ($StandardFare > $PensionerMax){
15:         $Fare = $PensionerMax;
16:         print "$Fare \n";
            ^Return value of flagged function ignored - print
17:     }
18:     else {
19:         $Fare = $StandardFare;
20:         print "$Fare \n";
            ^Return value of flagged function ignored - print
21:     }
22:     }
23: elsif ($Type = 'Child') {
24:     $MyFare = $StandardFare / 2;
25:     print "$MyFare \n";
        ^Return value of flagged function ignored - print
26:     }
27: else {
28:     $Fare = $StandardFare;
29:     print "$Fare \n";
        ^Return value of flagged function ignored - print
}