diff --git a/can someone explain this perl code? b/can someone explain this perl code?
new file mode 100644
index 0000000..d20318b
--- /dev/null
+++ b/can someone explain this perl code?	
@@ -0,0 +1,7 @@
+my $f11 = "./temp/synthesis_input.tcl";
+
+# Use the open() function to create the file.
+unless(open F11, '>'.$f11) {
+    # Die with error message 
+    # if we can't open it.
+    die "created $f11\n"