Some Perl demo code