Select Code to Download

my @connection = &trim($conn[0]);
if (system("iwconfig wlan0 essid $connection[0] key s:$pawd " ) ) {

sub trim {
    my ( $tr ) = @_;
    return ( split /"/, $tr )[ 0 ];
    }