I am starting to program some scripts for apache / mod_perl and have following problem.
Im reading a source file and after some calculation writing out the results. Runs very well, but if do change the source data, my script does work well except the code which is written out to the file in subroutines. After changing the script (deleting a space char or inserting a ; ) the code works well.
It seems that my code has an error and the $File handle does not work correct in the subroutine.
{Envirement Apache/2.2.3 (Win32) mod_perl/2.0.3-dev
Perl/v5.8.8 }

Code Snippet: 

#!/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();
}

[download]

Edit: g0n - code tags

In reply to file subroutine by yucani

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.