system ("rlogin\n");
$var1 = `df -k`;
print "$var1\n";