in reply to pass ARGV to STDIN

print $socket $ARGV[0]
Did you try it?

"What should it profit a man, if he should win a flame war, yet lose his cool?"

In Section Seekers of Perl Wisdom