Your system call is waiting for input from stdin. You could call 'touch' instead, but how about a pure perl solution?

{
    my $fh;
    open $fh, '>', "/path/to/${num}.bat" or die $!;
}
[download]

After Compline,
Zaxo