#!/usr/local/bin/perl -w
use strict;

my @args = @ARGV;
print "-----PASS 1-----\n"; 
while(<>){
  print;
}

@ARGV = @args;
print "-----PASS 2-----\n"; 
while(<>){
  print;
}