gistfile1.txt

sub isMounted {
    my $checkThisMount = shift;
    my $procMountFile = "/proc/mounts";
    my@ mountAry = ();

    open my $handle, '<', $procMountFile;
    chomp(my @lines = <$handle>);
    close $handle;

    foreach (@lines) {
        if ($_ =~ m/$checkThisMount/) {
            return 1;
        }
    }

    return 0;
}

print(isMounted("/dump1"));