#!perl

use strict;
use warnings;
use v5.20.1;

my $outdir = 'E:\\TVTest\\out';
my $cmd = qq{TsSplitter -EIT -SD -1SEG -CS -OUT "$outdir" -GOP "%s"};

if (@ARGV) {
    foreach (@ARGV) {
        next unless /\.ts$/i;
        say sprintf $cmd, $_;
    }
}
else {
    opendir my $d, '.' or die $!;
    while (readdir $d) {
        next unless /\.ts$/i;
        say sprintf $cmd, $_;
    }
    closedir $d;
}