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

my $i = 10;
&format_and_print;

$i = 4300000000;
&format_and_print;

sub format_and_print {
print "i: $i\n";

my $ibytes = sprintf("%b", $i);
print  "print ibytes : $ibytes\n";
printf("printf ibytes: %s\n", $ibytes);

my $ioctal = sprintf("%o", $i);
print  "print ioctal : $ioctal\n";
printf("printf ioctal: %s\n", $ioctal);

my $ihex = sprintf("%x", $i);
print  "print ihex   : $ihex\n";
printf("printf ihex  : %s\n", $ihex);

my $isci = sprintf("%e", $i);
print  "print isci   : $isci\n";
printf("printf isci  : %s\n", $isci);

my $ifloat = sprintf("%f", $i);
print  "print ifloat : $ifloat\n";
printf("printf ifloat: %s\n", $ifloat);

my $iint = sprintf("%u", $i);
print  "print iint   : $iint\n";
printf("printf iint  : %s\n\n", $iint);
}

exit;