#!/usr/bin/perl

use strict;
use warnings;

#This script will populate the modradio.net website database nightly

my @all_files = </mnt/modarchive/*/*>;

foreach my $file (@all_files) {

if ( $file !~ /\.mp3/ ) {
        my @grep = grep( $file, @all_files);
                if (@grep != 0) {
                        print "there is a mp3 availible of $file\n";
                        print "Here is what grep returns: \n $grep[1] \n\n";
                        }
}
                }
print "done";