You want to read from STDIN.

my $data = <STDIN>;
# or, if you don't want the newline at the end
chomp(my $data = <STDIN>);
[download]