my $template = "filename.ppt";
 my $fsize = ( stat( $template ) )[7];
 if ( ! open( FILE, "<$template" ) ) {
     die( "Cannot open $template, $!" );
 }
 print( "Content-Disposition: attachment; filename=\"$template\"\n" );
 print( "content-type: application/vnd.ms-powerpoint\n" );
 print( "Content-Length: $fsize\n" );
 print( "\n" );
 my ( $result, $data );
 while ( $result = read( FILE, $data, 8192 ) ) {
     print( $data );
 }
 close( FILE );