use Finance::YahooChart;

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

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

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

}