Mega Code Archive

 

Categories / Perl / Data Type

 

Demonstrates the reference syntax

#!/usr/bin/perl use warnings; use strict; use CGI::Pretty qw( :standard ); print( header(),         start_html( 'Demo' ),        p( 'Some', 'random', 'text' ),        p( { -align => 'right' }, 'right', 'aligned text' ),        p( { -align => 'center' },           [ 'on', 'separate', 'lines' ] ),        end_html() );