package FooBar;

use base 'CGI::Application';
use HTML::Template;

sub setup {
   my $self = shift;
   $self->start_mode('sh');
   $self->mode_param('rm');   	
   $self->run_modes('sf' => 'save_file');
}

sub save_file {

   my $self = shift;
   
   my $some_file = "This,is,a,test";

   $self->header_add( 
                     -type =>'application/octet-stream', 
                     -attachment => "somefile.csv',
                     -expires =>'0', 
                    );
                    
   return $some_file; 
}

##</code><code>##

$template = $self->load_tmpl( "foobar.tmpl");	
return ($template->output, $some_file);