You can check the support for long doubles at runtime using the module Config. Here is a sample code from perldoc that shows usage:
use Config;
if ($Config{uselongdouble} eq "define") {
print "long doubles by default\n";
}
This example is given in the sprintf section (which I just read ...), and there are other examples there.
, , . Perl , . ( use integer)