#!/perl/bin/perl
use strict;
use Finance::YahooQuote;

my @quote = getquote @ARGV;

foreach (@quote){

print "${$_}[1] Bid: ${$_}[9] Ask: ${$_}[10] Last: ${$_}[2] \n";

}