You just need to ask... ! And of course, if I found a valid solution, I'll share it!!!

:o)

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