#!/usr/bin/perl
use strict;

my $nieuwsurl = $ARGV[0];
if (!$nieuwsurl){ die "Please pass a url.\n"; }
my $flvpath = `/usr/bin/curl -s $nieuwsurl|grep FLVLong|grep rtmpPath`;
if ($flvpath =~ m/= '(.*)\.flv';/)
{
  $flvpath = $1;
}
else
{
  die "Could not extract url.\n";
}
my $cmd = "/usr/bin/rtmpdump -r rtmp://vrt.flash.streampower.be -a vrtnieuws -y $flvpath -o ~/nieuws.flv &";
system($cmd);
sleep 10;
system('mplayer ~/nieuws.flv');