#!/usr/bin/perl

use strict;
use warnings;

seek(DATA, 0, 0);

while(<DATA>) {
  print;
}

__END__