http://www.perlmonks.org?node_id=1046395


in reply to Re: Completely New To Perl - Need Help Commenting Script
in thread Completely New To Perl - Need Help Commenting Script

Non-portable equivalent of
open my $FH, '<', $ARGV[0] or die $!; 1 while <$FH>; $line_count = $.; seek $FH, $. = 0, 0;
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ