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