my $filename = 'test.jpg';

my @results;
my $fh = IO::File->new("$filename");
while (read($fh, $buffer, 45)) {
    push @results, pack("u", $buffer);
}
$fh->close;

print STDOUT "begin 600 ", $filename, "\n", join(@results, "\n"), "end\n\n";