well, it's a little strange to visit perlmonks after a long away period...

But it's even stranger to see so many replies with the same answer to one simple question...

#!/usr/bin/perl -w
`mount`;
print $! if $!;