#！usr/bin/perl

use warnings;

use strict;

use Getopt::Long;   

use File::Basename;

use PerIO::gzip;  

use Cwd;

=head1 name

　　myfile,pl

　　#介绍此脚本功能

=head1 example

　　perl  myfile.pl  -参数1  ******** -参数2  ********* -参数  ********   2>myfile.log  

=head1 description

　　-参数1      <str>             ********

　　-参数2      [str] 　　　　********

　　-参数3　　[int]　　　　********

　　-参数4　　[flt]　　　　 ********

　　-参数　　　　　　　　 ********

　　-help　　　　　　　　 help

=head1 author

　　　839365149@qq.com

=head1 version

　　　1.0  2017-07-15   15:00

=cut

#显示时间信息 　　　　                 

my $time=`date`;

print STDERR "|-- Start $0 at time: ".$time."\n";  #$0指代的就是myfile.pl脚本

perl常用总结