package file;

sub read
      {
                # LEE EL CONTENIDO DE UN ARCHIVO Y LO COLOCA EN UNA VARIABLE
                my ($template) = (@_);
                open(TMPL,'templates/'.$template);
                $tmpl = join'',<TMPL>;
                close TMPL;
                return $tmpl;
}


1;