Hi

See URI::data - URI that contains immediate data

#!/usr/bin/perl --
use strict; use warnings;
use URI; use IO::File;
my $u = URI->new("data:");
$u->data(join '', IO::File->new( 'camel.favicon.png' , '<:raw' )->getl
+ines );
$u->media_type("image/png");
print qq[<p><img src="$u">\n];
__END__
<p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAABQAAAAVCAI
+AAADJt1n/AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAgY0hSTQAAeiYAAICE
+AAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAKdJREFUOE/Fk2sOgCAMg/HqxpuZe
+C1sqI5ReSh/JATB7Os6HkuMMUw3wNMttMhjP7Z16+vWYWDWO3yGUTgAG5mZvcVfMIMAIA
+4jd9D4AWwAJYj5Q6jyWrO3yjkL8TD+cKmwVC6w2SlgaH3qCpfGmlrpRl6xt/v0ZXKbVL2
+8hc1LTnVLV2z7zGLkucy7bdo+SDKLtMK+SKl8nFngD5nnz7n/bgcP4wf4BN5NffCErP3u
+AAAAAElFTkSuQmCC">
[download]

FWIW, new questions go in Seekers Of Perl Wisdom

Welcome, see The Perl Monks Guide to the Monastery, see How do I post a question effectively?, Where should I post X?