サーバのコマンド df -h をperlで実行して結果を表示しようとしたら…
Filesystem      Size   Used  Avail Capacity  Mounted on
,,,,,

って出てきました。telnetでやるとうまくできたのに、こちらではうまくできません。
教えて下さい。
ソースです↓


#!/usr/bin/perl
print "content-type: text/plain\n\n";


$CMD = "df -h";
open (RUNCMD, "$CMD |");
$df = <RUNCMD>;
close (RUNCMD);

chomp($RUNCMD);

printf ("%s,%s,%s,%s,%s,%s", $df);

exit 0;