freepascal.compiler/docs/linuxex/ex1.pp

Program Example1;

{ Program to demonstrate the GetEpochTime function. }

Uses linux;

begin
  Write ('Secs past the start of the Epoch (00:00 1/1/1980) : ');
  Writeln (GetEpochTime);
end.