Select Code to Download

sub cmd($@) {
    my $self = shift;
...
    ## Join words with spaces and send them to linphonec
    print {$self->{Writer}} join(' ', @cmd) . "\n";
}