In Perl?

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isd st) = localtime(time)

Il valore di $wday ti da` il giorno della settimana.
Il lunedi` e` caratterizzato da $wday==1, quindi ti basta decrementare il time di tanti giorni quanto $wday-1 .

Ora non ricordo piu` la sintassi per fare il tutto (sono un po' arrugginito e non ho molto tempo di cercare), ma con queste indicazioni dovresti riuscirci.

Nota: la settimana in Perl inizia la domenica e finisce il sabato, per cui questo sistema ti va bene se anche per te la domenica e` il primo giorno. Altrimenti devi aggiustare (ad esempio ($wday==0)?$wday+=7:; ).