#!/usr/local/bin/perl -w
use diagnostics;

my $a = system "read_apt db_1";
print $a;

my $b = system "read_apt db2";