#!/usr/bin/perl

use strict;
use warnings;
use Parse::AccessLogEntry;
use YAML::Syck;

my $p=Parse::AccessLogEntry->new;
chomp, print Dump $p->parse($_) while <>;

__END__