#!/usr/local/bin/perl


use strict;
use warnings;
use DBI();

my $FILE2;

.......

  open($FILE2,">c:\\$ref->{'id'}") or die "error\n";
  binmode(FILE2);
  print $FILE2 pack('C', $ref->{'id'});		# format

.......


sub print_obj
{
my ($dbh2,$ptyp,$pid,$mid) = @_;

  my $st2 = $dbh2->prepare("SELECT * FROM o$ptyp WHERE id=$pid");
  $st2->execute();  

.......

      print $FILE2  pack('C', length $ba);   
      print $FILE2  $ba;			   
      print "o";
    }
  }
  $st2->finish();
}