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

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