diff --git a/plugins/other/acpi_sys_batt_ b/plugins/other/acpi_sys_batt_
new file mode 100755
index 00000000..adc05640
--- /dev/null
+++ b/plugins/other/acpi_sys_batt_
@@ -0,0 +1,167 @@
+#!/usr/bin/perl -w
+# -*- perl -*- 
+
+=head1 NAME
+
+acpi_sys_batt_ Munin plugin to monitor the (note|net)book battery states through sysfs
+
+=head1 APPLICABLE SYSTEMS
+
+Notebooks and netbooks with avialable /sys/class/power_supply
+
+=head1 CONFIGURATION
+
+Configured change the name of symbolic link
+
+acpi_sys_batt_X_capacity - chart of Charge full by design, Charge full and Charge now
+acpi_sys_batt_X_current  - chart of battery current
+acpi_sys_batt_X_percents - percentage chart of Current/design voltage, Full/current capacity, Design/full capacity
+acpi_sys_batt_X_voltage  - chart of Design min voltage and Current voltage
+Where X is the number of batteries from /sys/class/power_supply/BATX
+
+=head1 INTERPRETATION
+
+The plugin shows:
+ Charge full by design
+ Charge full
+ Charge now
+ Battery current
+ Percentage Current/design voltage
+ Percentage Full/current capacity
+ Percentage Design/full capacity
+ Design min voltage
+ Current voltage
+
+=head1 MAGIC MARKERS
+
+#%# family=power
+
+=head1 VERSION 
+=head1 BUGS 
+
+None known.
+
+=head1 AUTHOR
+
+Gorlow Maxim <sheridan@sheridan-home.ru>
+
+=head1 LICENSE
+
+GPLv2
+
+=cut
+
+use strict;
+#use Data::Dumper;
+
+my ($graph_type, $batt_num);
+if ($0 =~ /^(?:|.*\/)acpi_sys_batt_([^_]+)_(.+)$/)
+{
+    $graph_type = $2;
+    $batt_num = $1;
+}
+elsif (!defined($batt_num) or !defined($graph_type)) {
+    die "# Error: couldn't understand what I'm supposed to monitor."; }
+
+my $sys_path=sprintf("/sys/class/power_supply/BAT%s", $batt_num);
+
+#print "$batt_num, $graph_type \n";
+
+sub cat_file
+{
+	my $file = $_[0];
+	my $fh;
+	my $file_content = "--";
+	open($fh, '<', "${sys_path}/${file}") or die $!;
+	foreach my $line (<$fh>)
+	{
+		chomp ($line);
+		$file_content = $line;
+	}
+	close($fh);
+	return $file_content;
+}
+
+#print Dumper($batt_data);
+
+if ($ARGV[0] and $ARGV[0] eq "config")
+{
+
+#manufacturer
+#model_name
+#serial_number
+# ----------- status
+#technology
+#type
+
+
+	my $batt_name = sprintf("%s %s %s %s (sn: %s)", cat_file('technology'), cat_file('type'), cat_file('manufacturer'), cat_file('model_name'), cat_file('serial_number'));
+	print  ("graph_args --base 1000\n");
+	printf ("graph_title Battery %s (%s) %s\n" , $batt_num, $batt_name, $graph_type);
+	printf ("graph_info This graph shows battery %s (%s) %s\n" , $batt_num, $batt_name, $graph_type);
+	print  ("graph_category power\n");
+	if ($graph_type eq "capacity")
+	{
+		print  ("graph_vlabel Charge\n");
+		print  ("cfd.label Charge full design\ncfd.type GAUGE\ncfd.draw AREA\n");
+		print  ("cf.label Charge full\ncf.type GAUGE\ncf.draw AREA\n");
+		print  ("cn.label Charge now\ncn.type GAUGE\ncn.draw AREA\n");
+	}
+	elsif ($graph_type eq "current")
+	{
+		print  ("graph_vlabel Current, mAh\n");
+		print  ("currn.label Current\ncurrn.type GAUGE\ncurrn.draw AREA\n");
+	}
+	elsif ($graph_type eq "voltage")
+	{
+		print  ("graph_vlabel Voltage, mV\n");
+		print  ("vmd.label Design min voltage\nvmd.type GAUGE\nvmd.draw AREA\n");
+		print  ("vn.label Voltage now\nvn.type GAUGE\nvn.draw AREA\n");
+	}
+	elsif ($graph_type eq "percents")
+	{
+		print  ("graph_vlabel %\n");
+		print  ("cv.label Current/design voltage\ncv.type GAUGE\ncv.draw LINE2\n");
+		print  ("cc.label Full/current capacity\ncc.type GAUGE\ncc.draw LINE2\n");
+		print  ("fc.label Design/full capacity\nfc.type GAUGE\nfc.draw LINE2\n");
+	}
+	exit 0;
+}
+
+#$batt_data->{'info'}{''}
+sub percent
+{
+	my ($full, $current) = @_[0..1];
+	return $current/($full/100);
+}
+
+#charge_full
+#charge_full_design
+#charge_now
+#current_now
+#voltage_min_design
+#voltage_now
+
+if ($graph_type eq "capacity")
+{
+	printf ("cfd.value %s\n", cat_file('charge_full_design'));
+	printf ("cf.value %s\n", cat_file('charge_full'));
+	printf ("cn.value %s\n", cat_file('charge_now'));
+}
+elsif ($graph_type eq "voltage")
+{
+	printf ("vmd.value %s\n", cat_file('voltage_min_design'));
+	printf ("vn.value %s\n", cat_file('voltage_now'));
+}
+elsif ($graph_type eq "current")
+{
+	printf ("currn.value %s\n", cat_file('current_now'));
+}
+elsif ($graph_type eq "percents")
+{
+	printf ("cv.value %s\n", percent(cat_file('voltage_min_design'),cat_file('voltage_now')));
+	printf ("cc.value %s\n", percent(cat_file('charge_full'),cat_file('charge_now')));
+	printf ("fc.value %s\n", percent(cat_file('charge_full_design'),cat_file('charge_full')));
+}
+
+