#!/usr/local/bin/perl
use strict;
use warnings;

seek DATA, 0, 0;
while(<DATA>) { print }


__DATA__