#!/usr/bin/perl -w 
use strict;

open (IN, "file1") or die("can't blah blah");
while (<IN>) {
	print;
	print slurp();
}
sub slurp {
	my $slurp = do { local $/ = undef; open IN, "file2"; <IN>};
	return $slurp;	
}