#!/opt/perl5/bin/perl -w
use strict;
use File::Slurp;

my $DIR="/home/mis/ftpstore";

my @Files=read_dir($DIR);
my $file;

@Files=sort{$a cmp $b}@Files;

system("ls -l $DIR/Unity*.prpt | lpr");
foreach $file(@Files){
  if($file=~/Unity\d{3}\.prpt/){
  ## This command is a specialized command for the
  ## HP Distributed Print Service.
    system("pdpr -x sides=2 $DIR/$file");
  }
}