#!/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