diff --git a/applications/instantfpc/examples/getworkingdirectory.pas b/applications/instantfpc/examples/getworkingdirectory.pas
new file mode 100755
index 000000000..29d6fe7b5
--- /dev/null
+++ b/applications/instantfpc/examples/getworkingdirectory.pas
@@ -0,0 +1,7 @@
+#!/usr/bin/env instantfpc
+uses
+  SysUtils;
+begin
+  writeln(GetCurrentDir);
+end.
+