#!/usr/bin/perl -w use strict; for (@ARGV) { # do stuff }