sub auto_quote_system {
    my $line = shift;
    my @parts = split " ", $line;
    my $cmd = shift @parts;
    while ( ! -x $cmd ) {     # does -x works for file associations?
        $cmd .= " " . shift @parts;
    }
    return qq{"$cmd" @parts};
}