$mech->save_content($filename,":content_cb" => \&callback);
 sub callback
    {
        my( $data, $response, $proto ) = @_;
        $progress_amount+= length($data);
        my $size = $response->header('Content-Length');
        print floor(($progress_amount/$size)*100),"% downloaded\n"; # print percent downloaded
    }