Select Code to Download

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

my $file = '../frame.txt';
if(-s ($file) >0) {
...
}else{
    print "$file contains no data\n";
}