#!/usr/bin/perl 

use Math::BigFloat;

$x = Math::BigFloat->new("1");
$y = $x->fdiv(7, 40);           # $y = $x / 7, 40 miejsc po przecinku

print $y, "\n";
