#!/bin/usr/perl
use JSON;
use LWP::Simple;
use utf8;
use warnings;
use strict;

open STDIN, "< addresses_in.txt";
open STDOUT, "> results_out.txt";

my @addresses_all = <STDIN>;
chomp @addresses_all;
my $ADDRS_ALL = @addresses_all;


foreach $ADDRS_ALL(@addresses_all) {
	
	my $api = get("https://blockchain.info/rawaddr/" . $ADDRS_ALL);
	my $json_obj = new JSON;
	my $data = $json_obj->decode( $api );
	my $balnce = $data->{final_balance};

	print STDERR "Bitcoin address $ADDRS_ALL. Current balance is $balnce.\n";
	printf("Bitcoin address $ADDRS_ALL. Current balance is $balnce.\n");
	
	sleep 10;	
}