#!/usr/bin/perl

print "Content-Type: video/MP2T\n\n";

open (FILE, 'cat /dev/dvb/adapter0/dvr0 | /usr/local/bin/generatePAT.pl|') or die "file open error:$!";
binmode FILE;
binmode OUTFILE;

my $buf;
while(read FILE, $buf, 188){
	print $buf;
}

close FILE;