[Bioperl-l] <No subject>

[AUnderwood@PHLS.org.uk]

I would be very greatful for anybody's  help with this bioperl problem:
I am using seqIO with the "newFh coomand) e.g
$in = Bio::SeqIO->newFh(-file => "inputfilename" , '-format' => 'Fasta');
$out = Bio::SeqIO->newFh(-file => "outputfilename" '-format' => 'Genbank');
print $out $_ while <$in>;
However although this writes the outputfilename file correctly, if I try to
read this file in in the next line e.g
open(TEMP, "C:/TB/temp.gbk") || die "Cannot open file
\"/tmp/Sequences/TB/temp.gbk\" \n";
@temp =<TEMP>;
close TEMP;
print @temp;

Only part of the file is read (misses the last 50 lines). If I read the file
with the same lines but in a standalone script it works fine. 

Please can you tell me how to close the filehandle specified in the $out
line.
Any help on how this can be achieved/problem solved would be much
appreciated,


Dr Anthony Underwood
Bioinformatics Unit
Central Public Health Laboratory
61 Colindale Avenue
London
NW9 5HT
t:    0208 2004400 ext. 3618
f:    0208 3583138
e: aunderwood@phls.org.uk



**************************************************************************
The information contained in the EMail and any attachments is confidential
and intended solely and for the attention and use of the named addressee(s).
It may not be disclosed to any other person without the express authority of
the PHLS, or the intended recipient, or both. If you are not the intended
recipient, you must not disclose, copy, distribute or retain this message or
any part of it.

For information on how to send data to the PHLS in encrypted form via
E.Mail, visit www.phls.org.uk.

This footnote also confirms that this EMail has been swept for computer
viruses, but please re-sweep any attachments before opening or saving.

HTTP://www.phls.org.uk
**************************************************************************