4.12. slurp

Example 4-12. examples/files/slurp_file.p6

#!/usr/bin/perl6

my $filename = shift @*ARGS err die "Usage: $PROGRAM_NAME file\n";

my $data = slurp $filename;
say $data.bytes;

my @rows = slurp $filename;
say @rows.elems;