perl units.pl COM1 < dmp4.tests > dmp4.results
perl units.pl COM1 < dmp4.tests | perl -pe1 > dmp4.piped

diff dmp4.results dmp4.piped