my $file = '../frame.txt';
if(-s ($file) >0) {
    open(FILE, '<', $file) or die $!;
        while(<FILE>) {
            print $_, "\n";
        }
    close(FILE);
}else{
    print "$file contains no data\n";
}