#!/usr/local/bin/perl
$x=<STDIN>; print "stdin=[$x] argv=[@ARGV]"