#!/usr/bin/perl
#Run this file in the background ./daemon.pl&
#Then run ./xpt5a.pl
use strict; use warnings;

if ( -e "ready") {unlink ("ready")}; #in case ready exists

while (1) {
  if ( !-e "ready" ) {
    sleep 2;
  } else {
    print "#After array setup - from the daemon: ";
    system("date");
    printf "\n\$?=0x%x \$!=%s\n", $?, $!;
    system("free -m");
    unlink ("ready");
  }
}