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

my $content = do { local $/; <> };

print "$content\n";