open(FILE, "$file"); while () { print | mailx -s 'Title' myemailaddresshere; }