#!/usr/bin/perl
$channel = $ARGV[0];
$cmd1 = "v4lctl -c /dev/video0 setnorm NTSC";
$cmd2 = "mplayer "
. "-vop crop=624:468:8:0 "
. "-tv driver=v4l2:device=/dev/video0:input=1:amode=1 "
. "-tv norm=NTSC:width=640:height=480 "
. "-tv chanlist=japan-bcast:channel=$channel tv://";
system($cmd1) eq 0 or die "system $cmd1 faild: $?\n";
system($cmd2) eq 0 or die "system $cmd2 faild: $?\n";