initial import into Darcs

1 files changed, 16 insertions, 0 deletions

diff --git a/scripts/getquote b/scripts/getquote
new file mode 100755
index 00000000..cf8c8abd
--- /dev/null
+++ b/scripts/getquote
@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+
+exit 0 if $ARGV[0] eq "\$";
+
+use Finance::Quote;
+
+$q = Finance::Quote->new;
+
+$q->timeout(60);
+$q->require_labels(qw/price/);
+
+%quotes = $q->fetch("nasdaq", $ARGV[0]);
+
+if ($quotes{$ARGV[0], "price"}) {
+    print "\$", $quotes{$ARGV[0], "price"}, "\n";
+}