use Hotsuma::CrapText;

# データファイルをフルパスで指定して、CrapText オブジェクト作成
$crap = new Hotsuma::CrapText("./news1.dat");

# データファイルのオープンに失敗すると、getError()が返ります
# 例えばこんなようにトラップします。
die $crap->getError() if $crap->getError();

# もしCGIとして利用する場合のために、getHTMLError()もあります。
# メッセージは同じですが、最低限のヘッダを付け HTML 仕立てにして返します。
die $crap->getHTMLError() if $crap->getError();

# 標準出力に書き出すだけなら、次の通り。
$crap->printTo();

# 生成文を細工するには、getText()を使います。
# 文章を行単位でリスト化し、リファレンスを返します。
$r_text = $crap->getText();
print join("\n", @$r_text)."\n"