#!/usr/bin/env perl

my $slurp;
while (<DATA>) {
  $slurp .= $_;
}