#! /usr/bin/perl
use strict;
use warnings;

use JSON;                      # muss evtl. nachinstalliert werden
use LWP::Simple;               # muss evtl. nachinstalliert werden
use Data::Dumper;

# Wo sind die Daten zu holen?

my $url = "http://192.168.0.99/abfahrten.do?id=01";

# Daten abholen lasssen
#my $content = '[["01","Dresden, Plauen","2"],["01","Dresden, Plauen","2"],["01","Dresden, Plauen","2"],["01","Dresden, Plauen","2"],["01","Dresden, Plauen","2"],["05","Hamburg, Neugraben","5"]]';
my $content = get( $url );

# Abbruch, wenn Daten nicht geholt werden konnten
die "Could not load data from $url."	if not defined $content;

# Bereite JSON-Parser vor 
my $json = JSON->new->allow_nonref;

# Dekodiere JSON-Daten und erstelle eine Datenstruktur
my $data = $json->decode( $content );


# Kontrollausgabe
print Dumper $data;