my $b = Rdw::BigInt->new("1");
$b->sub("2");

print $b->get_data();