Obtains image files from multiple subreddits using reddit-get.

get_subreddits.pl

#!/usr/bin/perl

open(SUBREDDIT, "<subreddits.txt");

my(@data) = <SUBREDDIT>;
@data = sort(@data);
my($line);

foreach $line (@data)
 {
        system("/usr/bin/perl /data/scripts/reddit-get/get.pl $line ");
 }

close(SUBREDDIT);