#!/usr/bin/perl
use warnings;
use Shell;
use JSON;

main();

sub get_balance {
    my $test = libra("account balance f270b16e2fec7a10937d0c32eec34a9b2280a7ab8a64e75aa8c84e3583158349");
    print "$test";    
}

sub main {
    get_balance();
}