#!/usr/bin/perl
use warnings;
use strict;
use Math::BaseCnv;
#fast

my $time = time;
print "time -> $time\n";		  

my $time_128 = cnv( $time, 10, 128 );
print "time_128 -> $time_128\n";
#this will sometimes print hidden newlines
exit;