Pack and unpack

[kardon33]

Ok what i am trying to do with my script i send a poll and receive a reply and read that reply. I have the Poll work properly but what i need help with is trying to convert the reply from ascii to regular text.

My reply consist of 30 different variables and i need them to be separated. my code so far is.

#!/usr/bin/perl
 
print "Content-type:text/html\n\n";
use IO::Socket;
 
#Poll
my $header = 'Art-Net';
my $space = ' ';
my $Prover = chr(0x0e);
my $filler = chr(0x00);
my $ttm = chr(0x02);
my $ID = $header.$filler;
 
my $ArtPoll = $ID.$filler.$space.$filler.$Prover.$ttm.$filler;
 
 
#My Reply.
my $T_ArtPollReply = pack("A8 S C C C C C C C C C S C18 C64 C64 C C C C C C C C C C C C C C C6 C32",
    $ID,
    $OpCode,
    $BoxAddr,
    $VersionInfoH,
    $VersionInfo,
    $SubSwitchH,
    $SubSwitch,
    $OemH,
    $Oem,
    $UbeaVersion,
    $Status,
    $EstaMan,
    $ShortName,
    $LongName,
    $NodeReport,
    $NumPortsH,
    $NumPorts,
    $PortTypes,
    $GoodInput,
    $GoodOutput,
    $Swin,
    $Swout,
    $SwVideo,
    $SwMacro,
    $SwRemote,
    $Spare1,
    $Spare2,
    $Spare3,
    $Style,
    $Mac,
    $Filler,
);
 
$Node_Ip = '2.0.0.1';
 
my $poll = IO::Socket::INET->new(
    PeerAddr    => $Node_Ip,
    PeerPort    => "6454",
    Proto        => "udp",
    LocalPort    => "6454",
);
 
sub ArtPoll {
    $poll->send($ArtPoll);
    print "ArtPoll sent.\n<hr>";
 
    sub Reply {
        $poll->recv($T_ArtPollReply,250);
        print $T_ArtPollReply;
    }
    &Reply;
}
 
&ArtPoll;
 

When i run it i try to print the reply but i get[HTML]<br>[/HTML] Art-Net??!??
6???ÒLATest1?????????????Test Node ?????????????????????????????????????????????????? ????#0001 [0019] Power On Tests Pass?????????????????????????????????€€??????€€?? ??????????????¦
?

i know i have to do something with unpack or something but not sure if some one could help me out it would be very helpful.