$ perl -le 'my( $l ) = time; my $s = time; print join( "\n", $l, $s )'
1115694879
1115694879