If you don't have to have it done in perl and have units installed you can run that and parse the results (see man 1 units for details on how to run it and what the output means).