perl -le "print time"