sub dump_hours {
	my @links = $mech->find_all_links( text_regex => qr/\d+:\d+/ );
	foreach my $link (@links) {
		my $total = $link->text(); # total hours worked
		$mech->get($link);
		my $text = $mech->content( format => 'text');
		if ( $text =~ /(... \d\d\/\d\d\/\d\d\d\d) INOUT(.+)$/ ) {
			my $date = $1;
			my $hours = $2;
			print $date . " (" . $total . ") ";
			# $hours is a long string of hours, 5 positions wide
			while ($hours) {
				my $slice = substr($hours,0,5)."-".substr($hours,5,5);
				$hours .= "?"x5 if (length($hours) % 10 == 5);
				$hours = substr($hours,10);
				print $slice . " " ;
			}
			print "\n"; 
		}
	}
}