#!usr/bin/perl
print " This program will print all 10 decimal places.\n";
print "Enter an integer value.\n";
$value =<STDIN>;
#$value=1;
#chop($value);
$a = $value+1;
print "$a\n";
while ($value<$a) {
        print "value has become $value\n";
        $value=$value+0.1;
        print "Value after increment is :".sprintf('%20.17f',$value)."\n"
}
print "EOF.\n";