#!/usr/bin/perl
seek DATA, 0, 0;
undef $/;
print <DATA>;
__DATA__