my @torrentFiles;
    open CMD, "ls *torrent |";
    while (my $line = <CMD>) {
        chomp $line;
        push @torrentFiles, $line;
    }
    close CMD;