Help for this page

Select Code to Download


  1. or download this
    use Modern::Perl;

my %count;
...
OS:1400:Hopper:Home
HT&SF:1234:Flatcar:Away
NMBS:999:Reefer:Gone
  2. or download this
    There are 1 Flatcar Car(s)
There are 4 Hopper Car(s)
There are 1 Reefer Car(s)