Select Code to Download

package MultipartFilter;

use v5.12;
...
}

1;

#!/usr/bin/perl

use v5.12;
...
say "*** multi-part response ***";
$resp=$ua->get("http://localhost/~alex/files/server-push/push-server.c
+gi");
say $resp->as_string();

#!/usr/bin/perl

use v5.12;
...
    "Content-Type: text/plain\r\n",
    "\r\n",
    "Hello World!\r\n";

#!/usr/bin/perl

use v5.12;
...
}
print
    "--$boundary--\r\n";

MultipartFilter->hookInto($browser,
    onDocument => sub {
...
        $twig->parse($part->content());
    }
);