It`s in a loop just to keep "connected", it`s my first socket in Perl, im searching for a better way to keep connected.