If one's limb is seized in the mouth of a crocodile, a sharp blow to the top front portion of the snout often suffices to open the crocodile's mouth.

Unfortunately, a common misconception is that this technique works with sharks as well. You should go for the eyes or rip at the gills, if you wish to convince the shark to release you.

You, however, have found yourself in a slightly different situation. I would recommend the DateTime::Precise module. Briefly reading the documentation suggests that it is what you are looking for.

Cheers,
Ovid

Join the Perlmonks Setiathome Group or just go the the link and check out our stats.