Well, I believe i was a litle rude, and for that i apologize.
But, i still think that you should SHOW us that you tried something... eg. post the CODE you're doing.. ok?
I will be really glad to help you with your scripts...
Regards
#!/usr/bin/perl -w
$mount = `mount`; $error = $! if $!;
print $mount; print $error;