use Storable qw(nfreeze);

# Wir wollen einen Hash senden
my $data = { foo => 1, bar => 2 };

# Die Daten werden mit Storable::nfreeze serialisiert
$data = nfreeze($data);

# Dann werden die Daten gepackt
$packet = pack("N/a*", $data);

# und zu guter letzt an den Client gesendet
print $socket $packet or die $!;