#!/usr/local/bin/perl

if (open(MYFILE, "file1")) {
        $line = <MYFILE>;
        while ($line ne "") {
                print ($line);
                $line = <MYFILE>;
        }
}
