--- a/Lib/IMPL/Web/HttpResponse.pm	Sat Sep 29 02:34:47 2012 +0400
+++ b/Lib/IMPL/Web/HttpResponse.pm	Mon Oct 08 03:37:37 2012 +0400
@@ -48,7 +48,7 @@
 	   binmode $out, ":encoding($charset)";
 	}
 	
-	$q->header(\%headers);
+	print $out $q->header(\%headers);
 	
 	if(my $body = $this->body) {
 		if(ref $body eq 'CODE') {
@@ -64,6 +64,25 @@
     return UNIVERSAL::isa($_[1], 'CGI::Cookie') ? $_[1] : CGI::Cookie->new(-name => $_[0], -value => $_[1] );
 }
 
+sub InternalError {
+    my ($self,%args) = @_;
+    
+    $args{status} ||= '500 Internal Server Error';
+    
+    return $self->new(%args);
+}
+
+sub Redirect {
+    my ($self,%args) = @_;
+    
+    return $self->new(
+        status => $args{status} || '303 See other',
+        headers => {
+            location => $args{location}
+        }
+    );
+}
+
 1;
 
 __END__