RosettaCodeData/Task/Execute-a-system-command/Modula-3/execute-a-system-command.mod3

UNSAFE MODULE Exec EXPORTS Main;

IMPORT Unix, M3toC;

VAR command := M3toC.CopyTtoS("ls");

BEGIN
  EVAL Unix.system(command);
  M3toC.FreeCopiedS(command);
END Exec.