c:\@Work\Perl\monks>perl -le
"use strict;
 use warnings;
 ;;
 use integer;
 ;;
 use Test::More tests => 2;
 ;;
 my $x = 5;
 my $y = 3;
 ;;
 is $x / $y, 1, qq{$x / $y == 1 is expected};
 is $y / $x, 0, qq{$y / $x == 0 is expected};
"
1..2
ok 1 - 5 / 3 == 1 is expected
ok 2 - 3 / 5 == 0 is expected