#!/usr/bin/perl

use strict;
use warnings;

print 'interface: ';

chomp( my $wireless_interface = <STDIN> );

my $iwlist_output = `iwlist $wireless_interface scan`;

print $iwlist_output, "------\n";

if ( $iwlist_output =~ m{Interface doesn't support scanning}i ) {
    die 'stocazzo che ti funziona!', "\n";
}