#!/usr/bin/perl
# zwei.pl
use strict;
use warnings;
$crash = "irgendetwas";  # <-- hier fehlt ein my ..
my ($input);
{
	undef $/;
	$input = <STDIN>;
}
print "$input\n";