#!perl 
use strict;
use warnings;

use Test::More tests => 1;

my $x = 5;
my $y = 3;
is $x / $y, undef, 'Yes, your integers behave exactly as expected';

=head1 output

1..1
not ok 1 - yes your integers behave as expected
#   Failed test 'yes your integers behave as expected'
#   at -e line 1.
#          got: '1.66666666666667'
#     expected: undef
# Looks like you failed 1 test of 1.

=cut