use Finance::YahooChart;

foreach( @ARGV ){
last unless /\w+/;

my %img = getchart(symbol => $_ , size => 'b', type => 'w',
                 include => 'm');

`get $img{'url'} > $_.jpg`;

}

##</code><code>##

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

my @quote = getquote @ARGV;

foreach (@quote){

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

}

##</code><code>##

c:\>quote.pl ibm msft qqq