my $dfretval = `df`;

print $defval;