#!/usr/bin/perl
print "Input Air Temperature in degrees Fahrenheit: ";
$T=<STDIN>;
print "Wind Speed in miles per hour: ";
$V=<STDIN>;
$TWC = $T;
if ($V > 3.) {
  $TWC = 35.74 + 0.6215*$T - 35.75*$V**0.16 + 0.4275*$T*$V**0.16;
}
print "The wind chill temperature is: ",$TWC,"\n"