=head2 $mech->save_content( $filename )

Dumps the contents of C<< $mech->content >> into I<$filename>.
I<$filename> will be overwritten.

=cut

sub save_content {
    my $self = shift;
    my $filename = shift;

    open( my $fh, ">", $filename ) or $self->die( "Unable to create $filename: $!" );
    print $fh $self->content;
    close $fh;
}