#!/usr/bin/perl use strict; use warnings; foreach(@ARGV) { print "passed $_\n"; }