use LWP::Simple;

# hier die Aktie eintragen zb. DeutscheBank
my $aktie = "DBK.DE";
my ($kurs_name, $kurs);

my $url = 'http://download.finance.yahoo.com/d/quotes.csv?s='.$aktie.'&e=.csv&f=sd1opl1n0';
my $file = 'kurs.csv';
getstore($url, $file);

open FH, "kurs.csv" or die ("Fehler beim öffnen $!");
while(<FH>){
  my @data = split(/,/,$_);   # csv trennen
  $data[5] =~ tr/\"|\n//d;    # Anführungszeichen und Zeilenumbruch löschen
  $kurs_name = $data[5];      
  $kurs = $data[4];
}
close FH; 
print $kurs_name." Kurs: ".$kurs." EURO\n";