#!/usr/bin/perl 

while() {
  my $val = int (rand 180) + 60;
  my $ts = sprintf("[%02s:%02s:%02s]",(localtime)[2],(localtime)[1],(localtime)[0]);
  print "$ts Sleeping for $val seconds\n";
  sleep $val;
  system "./dnetc -shutdown";
  sleep 5;
  system "./dnetc -quiet -runoffline -runbuffers";
}