ings;\nuse strict;\n\nopen my $vfh, '>', 'vowels.txt' or die $!;\n"
			+"while (<>) {\n\tprint $vfh $1 while s/([aeiou])/_/i;\n\tprint;\n}\nclose $vfh;",
		script_fn: "devoweler.pl",
		inputs: [
			{ fn: "mytext.txt", text: "Foo\nBar\nQuz\n" },
			{ fn: "other.txt", text: "Hello, World!" },
		],
		outputs: [ "vowels.txt" ],
		autorun: true,
	} ));
//iFrameResize({checkOrigin:false}, document.getElementById('perl2'));
</script>

</body>
</html>
