#print "Hello,World!";

/*
 *注釋若干行
 *注釋若干行
 *注釋若干行
*/

"""
 用三個(gè)雙引號，多行注釋
 用三個(gè)雙引號，多行注釋
 用三個(gè)雙引號，多行注釋

"""

'''
 用三個(gè)單引號，多行注釋
 用三個(gè)單引號，多行注釋
 用三個(gè)單引號，多行注釋

'''

=begin

This is a comment.
This is a comment, too.
This is a comment, too.

=end

# This is a comment.
# This is a comment, too.
# This is a comment, too.

 =

 多行注釋內(nèi)容
 多行注釋內(nèi)容
 多行注釋內(nèi)容

 =cut

#! C:\Perl\bin\perl -w 
use strict; 
use warnings; 
use String::Util ':all'; 
use 5.016; 
 
=my $element = " abc         "; 
printf "%s>\n", trim($element); 
printf "%s>\n", trim($element, right => 0); 
printf "%s>\n", trim($element, left  => 0); 
=cut