sub delete_files{
   my ($dir,$name) = @_;
   my ($basename) = basename($name);
   unlink $basename.'.'.$_ for(qw(log inx pdf));
}