use XML::Simple;
  use strict;
  use warnings;
  use Data::Dumper;

 my $filename = 'channels.xspf';
 my $title     = 'tagesschau24';
  my $library  = XMLin($filename,
   ForceArray => [ 'track', 'location', 'extension', 'vlcoption'],
    KeyAttr    => { track => 'title' }
  );

 my $track = $library->{trackList}->{track}->{$title};
 my $track2 = $library->{trackList}->{track}->{$title}->{extension};

print Dumper $track;
print Dumper $track2;

my @liste = (@{$track->{location}});
print "$liste[0]\n";


my @liste2 = (@{$track2->{vlcoption}});
print "$liste2[0]\n";

print Dumper @liste2;

print "$liste2[0]\n";