my $frame_qfn = 'temp';
open(my $frame_fh, '<', $frame_qfn)
   or die("Unable to open frame file $frame_qfn: $!\n");

while (<$frame_fh>) {
   print;
}

if (!$.) {
    print "$frame_fh contains no data\n";
}