#!/usr/bin/perl
use strict;
use warnings;
use Gtk2;


my @formats = Gtk2::Gdk::Pixbuf->get_formats();

my @exts;

foreach my $format ( @formats ) {
    foreach my $key ( keys( %$format ) ) {
           next unless $key eq 'extensions';  
         
	   foreach my $elem ( @{ $format->{ $key } } ) {
                push @exts, $elem;
            }
        
     } 
 }

print "@exts\n";