on *:SOCKOPEN:*:{
var %sockname = $sockname
if ($input(A socket named " $+ %sockname $+ " has opened. Would you like to close it?,wy,Socket Opened)) {
sockclose %sockname
if ($input(Socket " $+ %sockname $+ " has been closed.,io,Socket closed)) { return }
}
}