#!/usr/bin/perl -w 

open (FILE, "test.in");
my @text = <FILE>;
foreach my $line (@text) {
	print $line;
}
close FILE;