use strict;
use warnings;
use diagnostics;

use File::Random qw(random_file);

my $dir = $ARGV[0];

if ( not defined $dir ) {
    print "\nUsage: random.pl [folder];
    exit(0);
	}else{
random($dir);
}

sub random{

	my ($dir) = @_;
	

		while (1){

			my $mpc = "C:/Program Files (x86)/K-Lite Codec Pack/Media Player Classic/mpc-hc.exe";
				
			my $rndm_file = random_file(
			 -dir         => $dir, 
				 #-check       => qr/./, 
				 -recursive   => 1
			);
			
			if ($rndm_file =~ /\.(ini|nfo|db)$/i){
			print "$rndm_file\n";
			random($dir);
			}
			
			print $rndm_file;
			
            #get duration
			my $t = ("MediaInfo.exe --Output=Video;%Duration% \"F:/TV/$rndm_file\"");
			system(1, $mpc, "F:/TV/$rndm_file");
			
			my $time = qx($t);
			
			my $sleep_time = $time/1000;         #in seconds because mediainfo.exe outputs milliseconds i think.
			print "\nDuration in seconds: $sleep_time\n";	 
			
			sleep($sleep_time);
			
			random($dir);
		}
}