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