#!/usr/bin/perl -w

use strict;

seek DATA, 0, 0;

print <DATA>;

__DATA__