use strict;
use warnings;
use Finance::YahooQuote;

my $symbol = 'VOW.DE';
my @quote = getonequote($symbol); 

if (scalar @quote) 
  {
	print " 0 Symbol..................: $quote[0]\n";
	print " 1 Firma...................:  $quote[1]\n";
	print " 2 Letzter Kurs............: $quote[2]\n";
	print " 3 Zuletzt gehandelt.......: $quote[3] $quote[4]\n";
	print " 5 Change..................: $quote[5]\n";
	print " 6 Percent Change..........: $quote[6]\n";
	print " 7 Volumen.................: $quote[7]\n";
	print " 8 Durchschn. tägl. Volumen: $quote[8]\n";
	print " 9 Geld....................: $quote[9]\n";
	print "10 Brief...................: $quote[10]\n";
	print "11 gestriger Schlußkurs....: $quote[11]\n";
	print "12 heutiger Eröffnungskurs.: $quote[12]\n";
	print "13 Kursschwankung..........: $quote[13]\n";
	print "14 52 Wochen...............: $quote[14]\n";
	print "15 Gewinn pro Aktie........: $quote[15]\n";
	print "16 P/E-Verhältnis..........: $quote[16]\n";
	print "17 Dividenden-Ausgabetag...: $quote[17]\n";
	print "18 Dividende pro Aktie.....: $quote[18]\n";
	print "19 Dividendenziel..........: $quote[19]\n";
	print "20 Kapitalisierung.........: $quote[20]\n";
	print "21 Stock Exchange..........: $quote[21]\n";
  } 
else 
  { print "Ooops: $!\n"; }