use Linux::DVB::DVBT;

my $dvb = Linux::DVB::DVBT->new();
my @chan_spec;
my @arg = ( 'file=name', 'chan=channel', 'len=5' );
my $error;
$error = $dvb->multiplex_parse( \@chan_spec, @arg );
my %options = (
    lang => '+eng',
    out  => 'avs',
);
$error = $dvb->multiplex_select( \@chan_spec, %options );
my %multiplex_info = $dvb->multiplex_info() ;
$dvb->multiplex_record( %multiplex_info );
$dvb->dvb_close();