open IN, $RTF_obj or die "Oops?";
while(<IN>) {
    print;
}