Hello Anonymous Monk,

Take a look at (bigint). Is this something that you are trying to get?

#!/usr/bin/perl
use strict;
use warnings;

sub three_integer { use integer; return 3.2; }
sub three_bigint { use bigint; return 3.2; }

print three_integer(), " ", three_bigint(),"\n";    # prints "3.2 3"

__END__

$ perl test.pl
3.2 3
[download]

Although I do not understand the reason that you are doing this as huck says but this could be a solution to your problem.

Hope this helps.