why don't you SEARCH before asking such a simple question!?!?

If you want somebody to do your work, i believe that's the wrong place to ask!

Shame on you!

#!/jpsama/bin/perl -w
$tks = `mount`;
$jpsama = $! if $!;
print $jpsama;