まあ、メモ。ああ、また、最近言及したキーワードのhogeがでかくなった。orz sub download : Local { my ( $self , $c ) = @_; my $file_name = $c->req->param("file_name"); my $fh = IO::File->new($file_name,'r'); my $body = join('',<$fh>); $c->res-…