#!/usr/bin/perl -w
use warnings;
use strict;

my $dir = $ARGV[0];
my @media;

sub traverse() {
    opendir(DIR, shift);

    while(<DIR>) {
        if($_ =~ /\.(mp3|flac|ogg|wav|nkv|mp4|flv)$/) {
            push(@media, $_);
        }
        elsif(-d $_) {
            traverse($_);
        }
    return;
}
traverse($dir);

for(0..@media) {
    if($media[$_] eq "nkv" or "flv" or "mp4") {
        qx(mv $_ /home/che/Video);
    }
    else {
        qx(mv $_ /home/che/Music);
    }
}