#!/usr/bin/perl

use strict;
use warnings;

my $message = <DATA>;

# ... some code goes here

print $message;
__END__
Hello\nWorld