#/usr/bin/perl
use strict;
use warnings;

opendir (DIR, "\mail");
foreach my $file (readdir DIR){
	open WRITE, '<', '$file';
	my $text = <WRITE>;
	print $text;
}