#!/usr/bin/perl -w
use strict;
my @files = ('lib/Parse/Eyapp.pm', 'lib/Parse/Eyapp/Driver.pm');
for (@files) {
  my $r = `cat $_`;
  $r =~ /\$VERSION\s*=\s*(['"])([\d.]+)\1;/;
  my $version = $2;
  print "$version\n";
}
exec q{vim -p 'lib/Parse/Eyapp.pm' 'lib/Parse/Eyapp/Driver.pm'} if @ARGV;