#!/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'