#!/usr/bin/perl

use warnings;
use strict;

use Fcntl;
fcntl STDIN, F_SETFL, O_NONBLOCK;
my ($input, $current);
$input .= $current while sysread STDIN, $current, 4096;
print $input;

