#! /usr/bin/perl

# ファイル名の指定
$filename = "sample15.txt";

# 追記モードでオープン
open(OUT,">> $filename") || die('ファイルを追記モードで開けませんでした。');

# 書き込む内容
$msg = "Written by source15.cgi program.\n";

# 書き込み
print OUT $msg;

# ファイルのクローズ
close(OUT);

exit;