Perl Filehandle problem by denisemauldin