or download this
#!C:\perl\bin\perl.exe -w
use strict;
...
print "Gore in \% $target_county: " . (sprintf "%.5f", $target_gore_pe
+rcent*100) . "%\n" .
"\tDifference between this percent and his mean: " . (sprintf "%
+.5f", $gore_diff*100) . "%\n" .
"\tStandard deviations: " . (sprintf "%.5f", $gore_diff / $gore_
+sdev) . "\n";