use strict;
use warnings;

my $base=2;
my $power=-12;
my $number = $base * (10**$power);
my $p = abs($power);
my $string=sprintf("%.${p}f", $number);
print $string;