Create perl001.pl

This is a perl version of the python script to calculate the resistor value from the color code.