diff --git a/image_magick/to_avif.pl b/image_magick/to_avif.pl
deleted file mode 100755
index 725ea0e..0000000
--- a/image_magick/to_avif.pl
+++ /dev/null
@@ -1,18 +0,0 @@
-#!/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:-');
diff --git a/me.avif b/me.avif
new file mode 100644
index 0000000..3633e9a
Binary files /dev/null and b/me.avif differ
diff --git a/to_avif.pl b/to_avif.pl
new file mode 100755
index 0000000..a37d481
--- /dev/null
+++ b/to_avif.pl
@@ -0,0 +1,24 @@
+#!/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);
+
+my $image_avif = $p->Clone;
+$image_avif = $image_avif->ImageToBlob(magick => 'avif');
+
+my $preview_avif = $p->Clone;
+$preview_avif->Zoom('25%');
+$preview_avif = $preview_avif->ImageToBlob(magick => 'avif');
+
+#print $image_avif;
+print $preview_avif;