示例如下：
#!/usr/bin/perl -w
use strict;
my ($a, $b, $c, $d, $e) = (1..5);
=pod
$a = 0;
=cut
=head
$b = 0;
=cut
<
$c = 0;
TXT
=random
$d = 0;
=cut
=cut
$e = 0;
=cut
print "\$a = $a\n";
print "\$b = $b\n";
print "\$c = $c\n";
print "\$d = $d\n";
print "\$e = $e\n";
#注意，此处应用会注释到结尾，因为没有使用=cut结束注释
=random#任意字符
$e =0;
=random
print "--------------\n";
print "\$a = $a\n";
print "\$b = $b\n";
print "\$c = $c\n";
print "\$d = $d\n";
print "\$e = $e\n";
用法描述：
关键字是
=任意字