#!/usr/bin/env perl                                                                                               

use strict;
use warnings;
use Inline Java => q(./lib/java/Karl.java);
use feature qw(say);

my $is = q(inferior);
say Karl->nose($is);
say Karl->nose(1);

__END__