Oops, I typoed the print.

use strict;
my $cnID= (split("/", $serverID))[0];
print "$cnID\n";
[download]

As a hint, using strict would have indicated that something was wrong with this line.
--
It's not pessimism if there is a worse option, it's not paranoia when they are and it's not cynicism when you're right.