>>601-602

sub gomi($){
my $gomi_file = 'chirasi-no-ura.txt';
my $gomi_text = shift;
$gomi_text ||=<<"EOS";
なんかかけよ。
EOS

local *Gomi;
open Gomi, '>>' . $gomi_file or return not $@ = 'Open error[Write mode -> $gomi_file]';
print Gomi $gomi_text;
close Gomi;
return 1;
}