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