#!/usr/bin/perl 

use Math::BigFloat;

$x = Math::BigFloat->new("1");
$y = $x->fdiv(7, 40);           # $y = $x / 7, to 40 decimal places

print $y, "\n";