use Socket qw(:crlf);
$socket->print("irgendwas" . CRLF);