perl 输出当前时间

#!/bin/perl
use POSIX;
print strftime("%Y-%m-%d %H:%M:%S", localtime);