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