use strict;
use LWP::Simple;

my $bindata = get('http://home.iwcg.net/spectrum.bin');

my ($index,@data) = unpack('Ss*', $bindata);
my $count = @data;

print "index: '$index'\n";
print "data [$count]: @data\n";