$outlookmail="/Program Files/Microsoft Office/Office/Outlook.exe";

open(FIL,$outlookmail);
@lines = <FIL>;
close FIL;
foreach (@lines)
{
	print;
}