package gs;

use strict;
use Data::Dumper;

sub do_dumper {
	my ( $label, $variable ) = @_;
	my $msg = Dumper( $variable );
	warn "$label:\n$msg\n";
}