Select Code to Download

#!/usr/bin/perl

...
    print "Added:" .$losses. "\n";

}

while (sleep 1) {
read all data into an array...
...
process it..
write to a secondary file the extracted data for comparison purposes..
}