Adding first script, old demo Perl script to mess up