Some samples using perl