if (shapcs($MyIP , $MyUser , $MyPass , $MyPass2 , $command1)) {
                    print shapcs($MyIP , $MyUser , $MyPass , $MyPass2 , $command1) , "\n" ;
                        }