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