Help for this page
if (shapcs($MyIP , $MyUser , $MyPass , $MyPass2 , $com +mand1)) { print shapcs($MyIP , $MyUser , $MyPass , $MyPass2 +, $command1) , "\n" ; }