This concerns me:

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

How is $_ getting populated? Are you passing a value into your subroutine through the use of global osmosis? Or did you really mean:

chomp( my $id = $_[0] );
[download]

That right there could be an issue.

And it's possible that all of your 'if's are failing, so that the subroutine falls through to the final return which has no argument, and as a result, returns undef in scalar context or an empty list in list context.