work on perl snippets

Signed-off-by: Adam Stokes <adam.stokes@ubuntu.com>