create file in Cisco router flash

Router#tclsh
Router(tcl)#puts [open "flash:test" w+] {
+>This is a test.
+>Line 2.
+>Third line.
+>}

Router(tcl)#tclquit

Router#more flash:test
This is a test.
Line 2.
Third line.