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

use LWP::Simple;

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

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

my @lines = split /\n/, $data;
my $arrSize = @data;
print $arrSize;

@fields = split /, /, $data;
$GF375 = $fields[1];
$GF375com = $fields[2];
$GF48 = $fields[3];
$GF48com = $fields[4];
$datetime = $fields[6];

print "$datetime";
print "375 GF is      ";
print "$GF375\n";
print "375 com GF is  ";
print "$GF375com\n";
print "48 GF is       ";
print "$GF48\n";
print "48 com GF is   ";
print "$GF48com\n";
print "\n";

#print $data;

sleep 60;

goto loop;