perl高级用法--利用Verilog::Getopt来实现package编写

 # See copyright, etc in below POD section.

    
 ######################################################################
    
  
    
 package Verilog::Getopt;              # package name， 其中Verilog是目录
    
 require 5.000;                        # 需要perl5.0以上
    
 require Exporter;                     # Exporter 使得能够导出各个函数
    
  
    
 use strict;
    
 use vars qw($VERSION $Debug %Skip_Basenames);      # 等同于our声明，导出变量
    
 use Carp;                                          # package中使用warning或者die类似的功能。
    
 use IO::File;
    
 use File::Basename;
    
 use File::Spec;
    
 use Cwd;