#!/usr/bin/perl -w

use strict;

if ($#ARGV < 0) {
  print "\nUsage: $0 <File>\n\n";
  exit 0;
}

my $userlist = qq{$ARGV[0]};

open(FILE, qq{$userlist}) or die("$!: $userlist");
my @users = <FILE>;
close(FILE);

while ( <DATA> ) {
  print $_;
} 

__DATA__
JOE
FRED
SAM