say("Dequeuing ... ");
  my @lines = <MYQUEUE>;
  if (@lines){
    foreach my $line (@lines){
      #$line =~ s/"(.+)"/$1/gix;
      #say("$line \n");
      schedule($line);
      }
    $is_queued = 1;
    close (MYQUEUE);
    }