$ perl as_int.pl
$float is a:    Math::BigFloat
$int is a:      Math::BigInt
$float  1.41421356237309504880168872420969807857
$int:   1
$