my-emacs-d/elpa/yasnippet-20160924.2001/snippets/perl-mode/while

# name: while (...) { ... }
# key: while
# --
while ($1) {
    $0
}