#!/usr/bin/perl

use strict;
use warnings;

print "Contents of ARGV:\n>=", join( "=<\n>=", @ARGV), "=<\n";