perl html to pdf printer using gtk3 bindings

pdfshot.pl

# example usage: xvfb-run -a -s '-screen 0, 34x34x24' perl pdfshot.pl OUTFILE URL [ WAIT]
use v5.16;
use Gtk3 -init;
use Gtk3::WebKit;

(my $view = Gtk3::WebKit::WebView->new)->set_transparent(Glib::FALSE);
(my $window = Gtk3::OffscreenWindow->new)->add($view);
$view->signal_connect('notify::load-status' => sub { if ($view->get_uri && $view->get_load_status eq 'finished') {
    Glib::Timeout->add( $ARGV[2] // 5, sub {
        $view->get_main_frame->print_full((map {
            $_->set_export_filename($ARGV[0]);
            $_->set_use_full_page(Glib::TRUE);
            $_ } Gtk3::PrintOperation->new), 'export');
        exit 0 } ) } } );
$window->show_all;
$view->load_uri($ARGV[1]);
Gtk3->main;