Select Code to Download

    use Socket qw(:all);
...
    connect(SOCKET, $paddr) || die "connect: $!";
    
    close (SOCKET) || die "close: $!";