Perl: Udregning af tidsforskel i minutter

Hej EKSPERTER :)

Jeg har en tabel a la nedenstående.

<table>
<tr>
<td bgcolor="#$color">13:00 (Deadline)</td>
<td bgcolor="#$color">Noget Tekst</td>
</tr>
<tr>
<td bgcolor="#$color">16:00 (Deadline)</td>
<td bgcolor="#$color">Noget Tekst 2</td>
</tr>
</table>

Baggrundsfarven på rækkerne, skal bestemmes ud fra, hvor lang tid der er til deadline i minutter.

Har deadline fra en MySQL tabel og den aktuelle tid (HH:MM) fra Perl localtime.

Hvis der er UNDER 15 minutter til deadline = FFFF00.
Hvis deadline ER overskredet = FF0000.
Hvis ingen af disse 2 kriterier bliver opfyldt, skal rækkerne skifte imellem FFF og EFEFEF.

Synes den er lidt svær at knække...kan I hjælpe mig med at farve rækkerne?! :)