package Tools;

sub new
{

	my ($caller, %args) = @_;
	my $caller_is_obj = ref($caller);
	my $class = $caller_is_obj || $caller;
	my $self = bless [], $class;
	return $self;	

}

sub DIRUtil
{
	my $self = shift;
	my ($path, $dirname, $option) = @_;

	if ($option eq "-c") {
		print $path."\n";
		chdir($path) or die "$!";
		mkdir ("xxx") or die "$!";
	}
}