use Video::Capture::V4l;
use Video::Frequencies;
use Video::XawTV;
 # open the video device (the default is /dev/video0)
 my $grab = new Video::Capture::V4l "/dev/video0"
   or die "Unable to open video device: $!";

$rc = new Video::XawTV;
$channel = $grab->channel (0);
$channel->norm(TYPE_TUNER);
$channel->set;
$ftab = $rc->opt('freqtab') || "pal-europe";
$freq = $CHANLIST{$ftab};
$tuner = $grab->tuner (0);
$tuner->mode(MODE_PAL);
$tuner->set;
$channum=26;
$f = $freq->{$channum};
print $f;
$grab->freq($f);
#$tuner->mode(8);
$tuner->set;