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";
As jeffa pointed out though, check out tachyon's A Guide to Installing Modules.
In reply to Re: Sending images as attachments without using modules
by rob_au
in thread Sending images as attachments without using modules
by frinky
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |