sub make_command 
{
    my @arr          = @_;
    for (@arr) 
    {
        $_ = qq["$_"] if /\s/;
    } 
    my $_command_to_execute = join(' ',@arr);
    return ($_command_to_execute);
}