#!/usr/bin/perl
# atm - create an ATM transfer from [chequing] to [cash].
if ($#ARGV != 1) {
    print "Incorrect arguments\n";
    print "atm [date] [amount]\n";
    print "Transfers [amount] from chequing to cash\n";
    print "example: atm -t 80\n";
    die -1;
}
($date, $amount) = @ARGV;
$tf = sprintf ("tf $date n/a chequing cash %9.2f ''", $amount);
system($tf);
