package Vasuperl;

use strict;
use warnings;
use Exporter;
use vars qw($VERSION @ISA @EXPORT_OK );

$VERSION   = 1.00;
@ISA       = qw(Exporter);
@EXPORT_OK = qw(parse_log);

sub parse_log {
    my ( $log_file, $pattern ) = @_;
    # parse your log
    # and return something useful
}

1;