#!/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";
}