Hi Perlers cud u plz tell me what wrong in this :
#!/usr/bin/perl use strict; use warnings; print "Enter the File name \n"; my $input_file = <STDIN> ; chomp($input_file) ; open FH,$input_file or die "Can not open the file at $!" ; my @lines = <FH>; while (<FH>) print $. ; } close(FH); But its neither printing line number nor giving any error. regards Mayank =====-----=====-----===== Notice: The information contained in this e-mail message and/or attachments to it may contain confidential or privileged information. If you are not the intended recipient, any dissemination, use, review, distribution, printing or copying of the information contained in this e-mail message and/or attachments to it are strictly prohibited. If you have received this communication in error, please notify us by reply e-mail or telephone and immediately and permanently delete the message and any attachments. Thank you
