use Benchmark;

timethese (50000, {
	'OPENCAT'	=> sub 
	{
		open (INFILE, "cat mbox |");
		while (<INFILE>){ #do nothing
				}
		close INFILE;
	},
	'OPENPERL' => sub 
	{
		open (INFILE, "mbox");
		while (<INFILE>){ #do nothing
				}
		close INFILE;
	}
});