#!/usr/bin/env perl

use strict;
use warnings;
use feature qw(say);
use Fool;

my $president = Fool->new( { hello => q(I'm a very stable genius!) } );

say $0;
say __PACKAGE__;
say $president->hello();

__END__