#!/usr/local/bin/perl

while(<>)
{
	chomp;
	$filetype=`/usr/local/bin/file "$_"`;
	$sane_ftype=substr($filetype, length($_));

#	print "$sane_ftype\n";

	if ( $sane_ftype =~ / mail /o)
	{
		print "$_\n";
	}
}
