#!/usr/bin/perl -w

	use IO::Obex;
	
	$fred=new IO::Obex(device=>'/dev/tty.usbserial',
					   model=>'siemens');
	$fred->connect();

	$fred->get_directory();
	print ($fred->{'data'});

	$fred->set_path('Data');
	$fred->set_path('Sounds');
	$fred->set_path('Group');

	$fred->get_directory();
	print ($fred->{'data'});

#	$fred->fetch('narrowboat.wav');
#	open (FILE, ">narrowboat.wav");
#	print FILE $fred->{'data'};
#	close FILE;

	open (FILE, "Sounds/originaldedodedo.wav"); # Sounds/foxton_narrowboat.wav
	{
		local $\;
		@whole=<FILE>;
		$whole=join '',@whole;
	}
	close FILE;

	$fred->put(name=>'originaldedodedo.wav',
			   data=>$whole);

	$fred->disconnect();