sub CheckDeployed
{
 chomp (my $id = $_);