Perl notepad thingy