RosettaCodeData/Task/Hello-world-Web-server/Perl/hello-world-web-server-5.pl

2 lines
176 B
Perl
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
my $app = sub { return [ 200, [ 'Content-Type' => 'text/html; charset=UTF-8' ], [ '<html><head><title>Goodbye, world!</title></head><body>Goodbye, world!</body></html>' ] ] };