#!/usr/local/bin/perl -w

if (open(MYFILE, "path/to/file")) {
        $line = <MYFILE>;
        while ($line ne "") {
                print ($line);
                $line = <MYFILE>;
        }
}