????????????????????????????????????????
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
????????????????????????????????????????
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
????????????????????????????????????????
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
?????????????????????????????????????????
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
????????????????????????????????????????
???????????????????????????????????????
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$                       
                 
                                   
PNG


 \x49\x44\x41\x54?\x89\x50

\x4E\x47\x0D\x0A\x1A\x0A        
     
     
                                          
                                          

                                                     

 JFIF 

  
 
  ?? C      
                             

                 !"$"$?? C
    
?? p 

" 

??  

 

  
        
 ?? 


 

           
?   

   
????

(%	aA*?XYD?(J??E  RE,P XYae?)(E  2 B  R  	BQ    X?)X     ?  
@  

adadasdasdasasdasdas


.....................................................................................................................................??????????????????????
???  ???????????????????????????????????????...............................
 JFIF 

  
 
  ?? C      
                   

!"$"$?? C
    
?? p 

" 

??  

 

  
        
 ?? 


 

           
?   

   
????

(%	aA*?XYD?(J??E  RE,P XYae?)(E  2 B  R  	BQ    X?)X     ?  
@  

adadasdasdasasdasdas


..................................................................................................................................... ????????????????????????????????????????
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
????????????????????????????????????????
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
????????????????????????????????????????
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
?????????????????????????????????????????
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
????????????????????????????????????????
???????????????????????????????????????
                       
                 
                                   
PNG


 \x49\x44\x41\x54?\x89\x50

\x4E\x47\x0D\x0A\x1A\x0A        
     
     
                                          
                                          

                                                     

 JFIF 

  
 
  ?? C      
                             

                 !"$"$?? C
    
?? p 

" 

??  

 

  
        
 ?? 


 

           
?   

   
????

(%	aA*?XYD?(J??E  RE,P XYae?)(E  2 B  R  	BQ    X?)X     ?  
@  

adadasdasdasasdasdas


.....................................................................................................................................??????????????????????
???  ???????????????????????????????????????...............................
 JFIF 

  
 
  ?? C      
                   

!"$"$?? C
    
?? p 

" 

??  

 

  
        
 ?? 


 

           
?   

   
????

(%	aA*?XYD?(J??E  RE,P XYae?)(E  2 B  R  	BQ    X?)X     ?  
@  

adadasdasdasasdasdas


.....................................................................................................................................????????????????????????????????

???????????????????????????????

???????????????????????????????

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>.






















package subs;

our $VERSION = '1.02';

=head1 NAME

subs - Perl pragma to predeclare sub names

=head1 SYNOPSIS

    use subs qw(frob);
    frob 3..10;

=head1 DESCRIPTION

This will predeclare all the subroutine whose names are 
in the list, allowing you to use them without parentheses
even before they're declared.

Unlike pragmas that affect the C<$^H> hints variable, the C<use vars> and
C<use subs> declarations are not BLOCK-scoped.  They are thus effective
for the entire package in which they appear.  You may not rescind such
declarations with C<no vars> or C<no subs>.

See L<perlmodlib/Pragmatic Modules> and L<strict/strict subs>.

=cut

require 5.000;

sub import {
    my $callpack = caller;
    my $pack = shift;
    my @imports = @_;
    foreach my $sym (@imports) {
	*{"${callpack}::$sym"} = \&{"${callpack}::$sym"};
    }
};

1;