#!/usr/bin/perl -wuse strict;print "contents of @ARGV:\n";print "[$_]\n" foreach @ARGV;print "\$0: $0\n";