模块制作

最开始要怎么写啊？我试着写了下面的几行，大家帮忙看看呢~明天就要交了，急啊~谢谢呢~


package DECODE::TATBFSL;

use 5.008005;
use strict;
use warnings;

require Exporter;

our @ISA = qw(Exporter);
our %EXPORT_TAGS = ( ttaalevels => [ qw(&ttaalevels)],
                  decodepresgh=> [ qw(&decodepresgh)]
          decodetempanddewtemp=>[qw(&decodetempanddewtemp)]
                   decodewind=>[qw(&decodewind)]
         );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{
( ttaalevels => [ qw(&ttaalevels)],
                  decodepresgh=> [ qw(&decodepresgh)]
          decodetempanddewtemp=>[qw(&decodetempanddewtemp)]
                   decodewind=>[qw(&decodewind)]
} } );
our @EXPORT = qw(

);

our $VERSION = '0.01';

sub ttaalevels{}
sub decodepresgh{}
sub decodewind{}
sub decodetempanddewtemp{}

1;
__END__