#!/usr/bin/perl
$live = `/var/www/html/live.pl`;
$m3u8 = `curl -sL -k https://www.youtube.com/watch?v=$live`;
($m3u8) = $m3u8 =~ /hlsvp":"(.+m3u8)/;
$m3u8 =~ s/\\\//\//g;
print $m3u8;
