#!/usr/bin/perl

use strict;
use lib qw(/usr/lib/libDrakX);
use detect_devices;
use Data::Dumper;

print Dumper([ grep { $_->{driver} =~ /(bttv|saa7134)/ } detect_devices::probeall() ]);

print Dumper([ grep { $_->{media_type} =~ /MULTIMEDIA_VIDEO/ } detect_devices::probeall() ]);