From e14af092ad9a4c9d45b88a52dcb3b32fa1ffa9df Mon Sep 17 00:00:00 2001
From: "Jonathan \"Duke\" Leto" <jonathan@leto.net>
Date: Wed, 24 Apr 2013 14:45:52 -0700
Subject: [PATCH] Old Finance::MtGox util that no longer works due to API
 changes

---
 bin/mtgox | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100755 bin/mtgox

diff --git a/bin/mtgox b/bin/mtgox
new file mode 100755
index 0000000..2062e1b
--- /dev/null
+++ b/bin/mtgox
@@ -0,0 +1,9 @@
+#!/usr/bin/env perl
+
+use warnings;
+use strict;
+use Finance::MtGox;
+
+my $btc   = Finance::MtGox->new({user => 'foo', password => 'asdf'});
+my $price = $btc->market_price;
+printf "$%.2f\n", $price;