#! /usr/bin/perl -w
print $ARGV[0];

##</code><code>##

$ test.pl Hello
Hello

##</code><code>##

echo "Hello" | test.pl
Use of uninitialized value in print at ./test.pl line 2