#! /usr/bin/perl

# print the version string, out of debian/changelog

use Dpkg::Changelog::Debian;

#my $dir="."; . "/debian/changelog"
my $filename = shift();
my $c = Dpkg::Changelog::Debian->new();
$c->load($filename);


my @control = $c->format_range("dpkg", {count => 1} );
my $ver = $control[0]->{Version};

print $ver, "\n";
