One thing I see right off the bat is that you're using my $MySocket within some of the if ... else clauses.  That means that they are different variables from the $MySocket at the top of the program.

Here's a simplified example:

#!/usr/bin/perl

use strict;
use warnings;

my $MySocket = "abc";

if (1) {
    my $MySocket = "123";
    print "Inside while loop:  \$MySocket = '$MySocket'\n";
}

print "Outside while loop:  \$MySocket = '$MySocket'\n";

__END__

Output:

Inside while loop:  $MySocket = '123'
Outside while loop:  $MySocket = 'abc'
[download]

When you remove the extra my keywords, does that get you closer to success?