Help for this page

Select Code to Download

Select or download this

#!/usr/bin/env perl

...
  $slurp .= $_;
}

Select or download this

my $slurp;
while (<DATA>) {
  last if eof && /^###* /;
  $slurp .= $_;
}