#!/usr/bin/perl -U -w

$syst=mount();
print $syst;
##-------------------------------------------------------------------------

sub mount {
        my $syst = system "mount | grep /home";
                        return ( $syst/256 );
                                        }

##-------------------------------------------------------------------------