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

while (<DATA>)
{
    print;
}

__DATA__
Some example lines
that could be in a
file