my $queue = Thread::Queue->new();

#Anlegen des RowTypes
our $rtTrade = Triceps::RowType->new(
        symbol       => "string",   #Stock Symbol
        name         => "string",
        currentPrice => "float64",  #aktueller Kurs der Aktie
        highPrice    => "float64",  # höchster Kursstand in den letzten 52 Wochen
        lowPrice     => "float64",  # niedrigtest Kursstand in den letzten 52 Wochen
) or confess "$!";

        #Anlegen einer LWP::UserAgent + anschließende Erstellung und Ausführung des GET-Requests.
        my $ua  = LWP::UserAgent->new;
        my $req = GET 'http://download.finance.yahoo.com/d/quotes.csv?s=YHOO+GOOG+MSFT&f=snl1kj';
        my $res = $ua->request($req);

        #Prüfen der Ergebnisse des GET-Requests + Splittung und Speicherung der Ergebnisse in einem Array.
        my @stockDataArray;
        if ( $res->is_success ) {
                @stockDataArray = split( '\n', $res->content );
        }
        else {
                print $res->status_line . "\n";
        }
        
        my $row;
        #Erstellung der einzelnen Rows aus dem zuvor erstellten Array.
        for ( my $i = 0 ; $i < @stockDataArray; $i++ ) { 
                my @temp = split( ',', $stockDataArray[$i] );
                $row = $rtTrade->makeRowArray( $temp[0], $temp[1], $temp[2], $temp[3],$temp[4] )or die "$!";
                #$row = $rtTrade->makeRowArray(@temp); 
                #print $row->printP() . "\n";  #Erstelltes row-Objekt wird korrekt ausgegeben.
                $queue->enqueue($row); 
        }

for (my $i = 0; $i < 6; $i++) { 
        my $rowBack = $queue->dequeue();
        print $rowBack->printP() . "\n"; 
}