open(FILE, '<', '../frame.txt') or die $!;
    while(<FILE>) {
        print $_, "\n";
    }
close(FILE);

##</code><code>##

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";
}