#!/usr/bin/perl -w
use strict;
use POSIX;

die unless @ARGV;

require './debian/deps.pl';

my %deps = scan_extract();

foreach my $what (@ARGV) {
  print("extracted:$what=", $deps{$what}, "\n") or die $!;
}

flush STDOUT or die $!;
