use strict;
use warnings;

print between('02:03:04', '02:03:01', '13:00:24'), "\n";
print between('02:03:04', '02:03:05', '13:00:24'), "\n";
print between('14:03:04', '02:03:01', '13:00:24'), "\n";
print between('14:03:04', '02:03:01', '15:00:24'), "\n";

sub between {
	my ($t, $begin, $end) = @_;
	return (($t ge $begin) && ($t le $end));
}