19 lines
282 B
Prolog
Executable File
19 lines
282 B
Prolog
Executable File
#!/usr/bin/env perl
|
|
|
|
use v5.36;
|
|
use Image::Magick;
|
|
|
|
unless ($ARGV[0]) {
|
|
say "give me image file, e.g.: $0 goatse.jpeg";
|
|
exit 64;
|
|
}
|
|
|
|
my $p = Image::Magick->new;
|
|
my $file = $ARGV[0];
|
|
|
|
$p->Read($file);
|
|
|
|
# Write to STDOUT instead of file
|
|
binmode STDOUT;
|
|
$p->Write('avif:-');
|