#!/usr/bin/env perl
my $p = <STDIN>;
warn $p;