mythtv@woop:~$ cat streamlive.pl 
#!/usr/bin/perl

$CHANNEL = $ARGV[0] || die "I need a channel shmuck!";

$TVBITRATE = 5000000;
$TVBITRATEMAX = 500000;

%FREQ = (
      "1",         73250,
      "2",         55250,
      "3",         61250,
      "4",         67250,
      "5",         77250,
      "6",         83250,
      "7",        175250,
      "8",        181250,
      "9",        187250,
      "10",       193250,
      "11",       199250,
      "12",       205250,

      "13",       211250,
      "14",       121250,
      "15",       127250,
      "16",       133250,
      "17",       139250,
      "18",       145250,
      "19",       151250,
      "20",       157250,


      "21",       163250,
      "22",       169250,
      "23",       217250,
      "24",       223250,
      "25",       229250,
      "26",       235250,
      "27",       241250,
      "28",       247250,
      "29",       253250,
      "30",       259250,
      "31",       265250,
      "32",       271250,
      "33",       277250,
      "34",       283250,
      "35",       289250,
      "36",       295250,
      "37",       301250,
      "38",       307250,
      "39",       313250,
      "40",       319250,
      "41",       325250,
      "42",       331250,
      "43",       337250,
      "44",       343250,
      "45",       349250,
      "46",       355250,
      "47",       361250,
      "48",       367250,
      "49",       373250,
      "50",       379250,
      "51",       385250,
      "52",       391250,
      "53",       397250,
      "54",       403250,
      "55",       409250,
      "56",       415250,
      "57",       421250,
      "58",       427250,
      "59",       433250,
      "60",       439250,
      "61",       445250,
      "62",       451250,
      "63",       457250,
      "64",       463250,
      "65",       469250,
      "66",       475250,
      "67",       481250,
      "68",       487250,
      "69",       493250,

      "70",       499250,
      "71",       505250,
      "72",       511250,
      "73",       517250,
      "74",       523250,
      "75",       529250,
      "76",       535250,
      "77",       541250,
      "78",       547250,
      "79",       553250,
      "80",       559250,
      "81",       565250,
      "82",       571250,
      "83",       577250,
      "84",       583250,
      "85",       589250,
      "86",       595250,
      "87",       601250,
      "88",       607250,
      "89",       613250,
      "90",       619250,
      "91",       625250,
      "92",       631250,
      "93",       637250,
      "94",       643250,
      "95",        91250,
      "96",        97250,
      "97",       103250,
      "98",       109250,
      "99",       115250,
      "100",      649250,
      "101",      655250,
      "102",      661250,
      "103",      667250,
      "104",      673250,
      "105",      679250,
      "106",      685250,
      "107",      691250,
      "108",      697250,
      "109",      703250,
      "110",      709250,
      "111",      715250,
      "112",      721250,
      "113",      727250,
      "114",      733250,
      "115",      739250,
      "116",      745250,
      "117",      751250,
      "118",      757250,
      "119",      763250,
      "120",      769250,
      "121",      775250,
      "122",      781250,
      "123",      787250,
      "124",      793250,
      "125",      799250,
      "0",      0
        );

$COMMAND = "/usr/local/bin/vlc -vvv --color pvr:/dev/video0:norm=ntsc:size=720x4
80:frequency=" . $FREQ{$CHANNEL} . ":bitrate=$TVBITRATE:maxbitrate=$TVBITRATEMAX
 -I http --http-host=:8002  --sout-transcode-fps=25 \":sout=#transcode{vcodec=WM
V2,acodec=mp3,vb=256,ab=64,scale=.5}:std{access=http{user=,pwd=,mime=video/x-ms-
asf},mux=asf,url=:8001}\" ";

print "streamlive.pl called for Channel :",$CHANNEL,":\n";
print $COMMAND,"\n";