#!/usr/local/bin/perl print "hello\n"; print join (' ',@ARGV); print "\n";