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