package Vasuperl; use strict; use warnings; use Exporter qw(import); our ( $VERSION, @EXPORT_OK ); $VERSION = 1.01; @EXPORT_OK = qw(parse_log); sub parse_log { my ( $log_file, $pattern ) = @_; # parse your log # and return something useful } 1;