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

use LWP::Simple;

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

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

my $arrSize = @data;
print $arrSize;

print "\n";

#print $data;

sleep 300;

#goto loop;