#print "start\n";
print "\n";

use LWP::Simple;

$url1 = "http://ssds-prod.mbari.org/ssds/data/raw-data?deviceID=1780&lastNumberOfPackets=3&isi=0&noHTMLHeader=1";

loop:;
$data = get($url1);

#my $arrSize = @$data;
#print $arrSize; # Third way to print array size

print length $data;
print "\n";
print substr $data,0,59;
print substr $data,59,59;

#print "\n";
print "\n";

print $data;

sleep 300;

#goto loop;