#!/usr/bin/perl

# sumowanie dwoch plikow
# [c] piotao, 20070320, perl 5.+
# http://piotao.math.univ.gda.pl/Perl/
# program skleja pliki podane jako argumenty w wierszu polecen
# a jezeli ich nie uzyska, wykorzysta standardowe IO

use strict;
use warnings;

# dla wszystkich plikow wczytujemy kazdy ich wiersz i wypisujemy
while(<>){
	print;
}

__END__