short lived demo in Perl.