my $num = 12000/1000;
my $string = sprintf "%.01f", $num;
print $string, "\n";