in reply to File reading

print"proceed" if($First = 1);

You probably mean:

print"proceed" if($First == 1);
--
<http://dave.org.uk>

"The first rule of Perl club is you do not talk about Perl club."
-- Chip Salzenberg

In Section Seekers of Perl Wisdom