#!/usr/bin/perl

my $x="32.676543576589899765";
my $fx=sprintf("%.4f",$x);
print "$x $fx\n";