>Как по переменно выводить строчки из 2-х файлов?

open(F1, "<file1.txt");
open(F2, "<file2.txt");

while (1) {
  $tmp=<F1>; print $tmp;
  $tmp=<F2>; print $tmp;
}

close(F1);
close(F2);

paste -d '\n' file1 file2