use Linux::DVB::DVBT;

my $dvb = Linux::DVB::DVBT->new();

my $channel = 'CHANNEL';

$dvb->select_channel( $channel ) ;
$dvb->record( $channel, 30 * 60 );