#!/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__