#!/usr/bin/perl -w

use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);

# Prozess aufspalten
my $id=fork();

# Wenn neuer Prozess, dann "exec"
# Wenn alter Prozess dann Ausgabe.
unless($id)
{ exec('/usr/bin/vlc /root/Desktop/test.mpg --sout udp://192.168.0.254 --ttl 10 --loop'); }
else
{
 print "Content-type: text/html\n\n";
 print "Stream wurde geöffnet ID:$id";
}