#!/usr/bin/env perl

use strict;
use 5.010;

use Finance::Bank::SCSB::TW;

my ($u,$p,$a) = @ARGV[0..2];

( $u && $p && $a ) || die ("Usage: $0 <id> <username> <password>");

say Finance::Bank::SCSB::TW::check_balance($u,$p,$a);
