#!/home/ivan/bin/perl # this is a mok program with comments # this is a hack to make the program executable BEGIN { $0 =~ /(^|\/)mok$/ or exec qq{mok -f $0 @ARGV} } # block for each molecule { # let us add the atoms; look, you can ever put a right brace here! } $n += $MOL->atoms # internal comment (handled by perl) } # the block ended END { print qq{Total: $n atoms\n} } # this was the end block # just a random comment # the end