perl -we 'use Date::Manip::Date; my $pid = shift; my $sstart = readpipe("TZ=UTC ps --no-headers --format lstart --pid " . (0+$pid)); my $start = Date::Manip::Date->new($sstart, [SetDate => "zone,UTC"]); my $estart = $start->printf("%s"); print "process $pid started at epoch time $estart\n";' 1967