#! /usr/bin/perl -w
use strict;
use File::Basename;
BEGIN { my $dir = dirname($0); unshift(@INC, "$dir", "$dir/zconf"); }

use Zaptel::Hardware;

Zaptel::Hardware->scan_hardware();
print join("\n", Zaptel::Hardware->drivers),"\n";
