use strict; use warnings; use Time::Piece; use Time::Seconds; print 30 , "\n"