#!/usr/bin/perl -w
use strict;

my $in = <STDIN>;
print $in;

# END #

Now test it
> echo "Hello, world!" | ./test.pl
Hello, world!
>