Perl Port of termnote