#!/usr/bin/perl use POSIX; use Date::Manip; $today = strftime ("%d/%m/%Y", localtime); $t = &UnixDate ($today, "%s"); print $t, "\n";
#!/usr/bin/perl use Date::Manip; $today = ParseDate ("today"); $t = UnixDate ($today, "%s");