use strict;
use warnings;
use Net::Lorcon2 qw(:subs);

my $driver = "iwlwifi";
my $if = "wlo1";

my $drv = lorcon_find_driver($driver);
if (! $drv) {
   print STDERR "[-] Unable to find DRV for [$driver]\n";
   exit 1;
}

my $lorcon = lorcon_create($if, $drv);
if (! $lorcon) {
  print STDERR "[-] lorcon_create failed\n";
  exit 1;
}

##</code><code>##

use strict;
use warnings;

use Net::Lorcon2 qw(:subs);

my @cards = lorcon_list_drivers();

use Data::Dumper;
print Dumper(\@cards);