#!/bin/env perl use strict; use warnings; use MGA::Mirrors::DB; my $MGA = MGA::Mirrors::DB->new; $MGA->check_distributions;