open FILE, "filename" or die "no file! $!";
print FILE $pop -> Body( $i );
close FILE or warn "$!";