#!/usr/local/bin/perl
use strict;
use warnings;


my $targ = 0.01;
my $var = 66694.01;
my $tmp = $var / $targ;
printf "%.10f\n", $tmp;

my $t1 = 666940.2;
printf "%.10f\n", $var * 10;