Sample perl code