#print "Hello,World!";

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

"""
 用三個雙引號，多行注釋
 用三個雙引號，多行注釋
 用三個雙引號，多行注釋

"""

'''
 用三個單引號，多行注釋
 用三個單引號，多行注釋
 用三個單引號，多行注釋

'''

=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