Filament Length/Weight/Volume Estimator for 4d G-Code

This is a quick perl script to scan through a gcode file and figure out how much filament will be required.
It reads all of the "E" moves and adds them up each time they get reset to 0.
This will only work with absolute moves, not relative moves.

I did a 5 hour print and weighed it. The script said it should way 48.167 g. My kitchen scale said it weight 50 g.
Pretty good!