#!/usr/bin/perl
use strict;
my $statement = 0;
if ($ARGV[0] eq "-s") { $statement = shift @ARGV }
my ($username, $memorable_info, $password) = @ARGV;
use Finance::Bank::LloydsTSB;
for (Finance::Bank::LloydsTSB->check_balance(username=>$username,
memorable=>$memorable_info,password=>$password)) {
    printf "%20s : %8s / %8s : GBP %9.2f\n", $_->name, $_->sort_code,
    $_->account_no, $_->balance; 
    if ($statement) { print $_->statement; exit }
}