#!/usr/bin/env perl   

use strict;
use warnings;
use feature qw (say);
use Dog qw(dog);

say dog ("barf!");

__END__