#!/usr/bin/perl

use strict;
use diagnostics;
use URI;

my $failed = 0;
eval '
my $uri = URI->new("-invalid-input-harhar-")->canonical;
my $host = $uri->host;
';
$failed = 1 if $@;

print $failed;