my $packet = pack "a60", $data;