use POSIX qw/strftime/;

  sub days { return $_[0] * 86400 }

  print strftime( "%d-%m-%Y,%H:%M:%S\n", localtime );
  print strftime( "%d-%m-%Y,%H:%M:%S\n", localtime(time - days( 22)));
  print strftime( "%d-%m-%Y,%H:%M:%S\n", localtime(time + days(180)));
  print strftime( "time: %H:%M date: %d/%m/%Y\n", localtime );
  print strftime( "%d%m%y\n", localtime );
  print strftime( "%S seconds\n", localtime );
  print int( strftime( "%S", localtime ) ), " seconds\n";