Help for this page

Select Code to Download


  1. or download this
    my @lines = do { open my $fh, '<', $file or die "$file: $!\n"; <$fh> }
+;