use strict;
use warnings;

my $d1 = '2007030110300020070301133000';
my $d2 = '2007030110300020070301143000';

printf "plain = %d\n", ($d1 <=> $d2);
{
    use bigint;
    printf "bigint = %d\n", ($d1 <=> $d2);
}
{
    use bigint;
    printf "bigint-0 = %d\n", (($d1 -0)<=> ($d2-0));
}