use Tk;
use Benchmark qw(cmpthese);
use MIME::Base64 qw(encode_base64);
use LWP::Simple qw(get);

my $mw = tkinit;
my $file = Tk->findINC("Xcamel.gif");
my $data = get "file://$file"; # poor man's File::Slurp

cmpthese(-1,
	 { base64 => sub {
	       my $p = $mw->Photo(-data => encode_base64($data));
	       $p->delete;
	   },
	   binary => sub {
	       my $p = $mw->Photo(-data => $data);
	       $p->delete;
	   }
	 }
	);