!/usr/bin/perl # # Name: f2c # Author: Chris Hedemark <chris at yonderway_com> # License: BSD # Purpose: Quick converter from fahrenheit to centigrade main(); sub main { f2c_prep(); f2c_conv(); f2c_report(); } sub f2c_prep { if (!@ARGV) {die "\n"} $fahr = $ARGV[0]; } sub f2c_conv { $cent = ($fahr - 32) * 5 / 9; } sub f2c_report { print "$cent\n"; }