#! /usr/bin/perl -lw

use strict ;

use File::Cat;

open OUT,">o3" ;
cat ('o1', *OUT ) or die "Can't cat o1: $!";
cat ('o2', *OUT ) or die "Can't cat o2: $!";
close OUT ;


##</code><code>##

this line is from o1

this line is from o2



##</code><code>##

this line is from o1
this line is from o2