| Grimoire snippets for Perl
@@sub  subroutine
sub $|
{
    my () = @_;
}
@@for  foreach loop
foreach my $$item ($|)
{
}
@@if  if / else
if ($|)
{
}
else
{
}
@@open  read a file
open(my $$fh, '<', $|) or die "Can't open: $$!";
while (my $$line = <$$fh>)
{
}
close($$fh);
