A SAMP implementation in Perl