emacs/snippets/perl-mode/while

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