Help for this page

Select Code to Download

Select or download this

perl -e 'print (int((-M shift)*60*60*24)||1)' script_file

Select or download this

perl -e 'print (int((-M shift)*60*24))' script_file