$bagfile="任意のファイル名";#←この名前のlogファイルをlogdata内に作る。
sub baglog{
$refe = $ENV{'HTTP_REFERER'};#リファラー
$bagdat = "set;$set,date;$date,wr_mes;$wr_mes,ad;$addr,ht;$host,nm;$nm,mv_mode;$mv_mode,type;$type,ref;$refe,\n";
#↑記録をとりたい項目を記入。
open (OUT,">>$bagfile") || &error("open error:$bagfile",1);
print OUT $bagdat;
close(OUT) or die "Can't close : $!";
}