With Perl 5.8, you can do the following:

use integer;
my $result = 5/3;
print "$result\n";
[download]

Otherwise, you can do something like:

my $result = int(5/3);
print "$result\n";
[download]

Update: I believe my head is screwed on backwards today. ;-) Both result in 1. D'oh!