my $diff = diff \&reader1,\&reader2;