16 lines
No EOL
231 B
Perl
Executable file
16 lines
No EOL
231 B
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
use Math::Round;
|
|
|
|
round(10.2) == 10 || die "round(10.2) != 10";
|
|
|
|
print "Content-type: text/html\n\n";
|
|
print <<EOF
|
|
<html>
|
|
<head><title>Everything is OK</title></head>
|
|
<body>
|
|
Everything is fine.
|
|
</body>
|
|
</html>
|
|
EOF
|
|
; |