#!/usr/bin/perl
use strict;
open (INFILE0, "0/1.out") or die "Can't open 0/1.out: $!\n";
open (INFILE12, "12/1.out") or die "Can't open 12/1.out: $!\n";
our $0 = <INFILE0>;
our $12 = <INFILE12>;
print "File 0 \n";
print "$0\n";
print "File 12 \n";
print "$12\n";