### print files dropped into this directory
use strict;
use File::Copy;

while(1)
{
  opendir(DIRH, "c:\\printpdf") or die "couldn't open: $!";
  open(FH, ">log.txt") or die "Cannot open log file";
  foreach (readdir DIRH) 
  {
    ### only take pdf files
    next unless /pdf$/i;

    ### acroread needs full path
    my $file = "c:\\PrintPDF\\$_";

    print FH "Found $file\n";
    #system "c:\\apps\\AcroRd32.lnk /p \"$file\"";
    system "c:\\apps\\AcroRd32.lnk /N /T \"$file\"";

    ### not sure how long acroread keeps the file open
    sleep 10;
    move("$_", "Done") or die "move failed: $!";
    

  }
  close(FH);
  closedir(DIRH);
  sleep 30;
}