#!/usr/bin/perl

opendir (MSGS, $ARGV[0]);
@files = grep ( !/^\./, readdir(MSGS));

foreach $file ( @files) {

	$path  = "${ARGV[0]}/${file}";
	open FILE, "<${path}";
	@file = <FILE>;
	close FILE;

	
	open FILE, ">${path}";
	print FILE "Path: spe-odysseus!SPE-NOORD.SPE.com\n";

	print FILE @file;
	close FILE;
}