use 5.020;
use Encode;
my $output = `iwlist wlan0 scan | grep ESSID`;
my $octets = eval $output;
my $characters = decode('UTF-8', $octets, Encode::FB_CROAK);
say encode('UTF-8',$characters);