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;



##</code><code>##

#!/usr/bin/env perl

use strict;
use warnings;
use lib q(.);
use Vasuperl qw (parse_log);

my $log_file = shift || die $!;
my $pattern  = qr(.);
my $result   = parse_log( $log_file, $pattern );
# do something with $result

__END__


##</code><code>##

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;