Select Code to Download

### print files dropped into this directory
use strict;
...
  closedir(DIRH);
  sleep 30;
}

use Win32::API;

...
                             ['N', 'P', 'P', 'P', 'P', 'I'],
                              'N');
$shellopen->Call(0, "print", $file, 0, 0, 0);