my $cmd = "echo -e $(iwlist wlan0 scan | grep ESSID)";

open my $pipe, '-|', $cmd or die "(E) could not execute: $cmd: $!\n";
	while ( my $line = <$pipe> ) {
		print Dumper($line);
	}
close $pipe;