perl -e "@now = localtime(); print join(',',@now);"