Select Code to Download

#! perl -sw
use strict;
...
3 100
4 50
4 25

C:\test>196448
3 - 200
...
4 - 50
4 - 25
Processing type 3 total of 300 and a type 4 total of 75