#!/usr/bin/perl
open(INFILE, (sources_to_get));
while(<INFILE>) {
chop;
system ("apt-get source $_");
}
close (INFILE);