{C} > cat script.pl
#!/usr/bin/perl

use strict;

my $ref = `cmd.exe /c dir "\\\\192.168.78.129\\c\$" | find /i "bytes free"`;
print "ref = $ref\n";

{C} > script
ref =               14 Dir(s)   3,949,535,232 bytes free