#! perl -sw
use strict;
use Inline::Files;

select OUTPUT;

print while <INPUT1>;

print while <INPUT2>;

__DATA__
__INPUT1__
1
2
3
4
5
__INPUT2__
A
B
C
D
E
__OUTPUT__
1
2
3
4
5
A
B
C
D
E