perl code sample