#!/usr/local/bin/perl

open (INFILE, "temp") || die ("Can't open input");
while ($line = <INFILE>) {
        print ($line);
}
close (INFILE);
